Select Code to Download

my $config = {};
print "Type your username:  ";
...
print "\n";
system "stty echo"
  and croak "Unable to turn echoing to STDOUT back on";