#!/usr/bin/perl
open (FILE, "userlist");
@lines = <FILE>;
close (FILE);
foreach (@lines)
    {
    (my $UserName, my $PassWord, my $Uid, my $Group, my $Comment) = split (/:/,$_);
    system("rm /usr/home/$UserName/.fetchmailrc");
   }
