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