print "User name: ";
chop ($name=<STDIN>);
if ($name eq "")
{
   die "Invalid user";
}else{
   print "Password :";
   my $pass = ReadKey(2);
}