my $HAN = "handle";
my $FILE = "passwd.txt";
open("$HAN", "$FILE")||die "Error opening file: $!\n";

while(<$HAN>) {
my ($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/,$_);
print "UID is: $uid\n";
print "GID is: $gid\n";

}

close("$HAN");