#!/usr/bin/perl -w

print "Which name?\n";
$name = <STDIN>;
chomp($name);

open(PW, "/etc/passwd") || die "Failed to open";
while ($line = <PW>)
{
	($login, $junk) = split(/:/, $line);
	if ($login eq $name)
	{
		print "Found it!!\n";
	}
}
