Select Code to Download

print "User name: ";
chop ($name=<STDIN>);
if ($name eq "")
...
   print "Password :";
   my $pass = ReadKey(2);
}