Help for this page
foreach $line (@user) { chomp($line); ... else { &error("Username does not exist"); last;} } }
else { &error("Username does not exist"); last;}