SHARE
TWEET

Untitled

a guest May 30th, 2017 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/env perl
  2.  
  3. use Term::ReadKey
  4.  
  5. print "Username: ";
  6. $USERNAME = <STDIN>;
  7. chomp $USERNAME;
  8. print "\n";
  9. print "Password: ";
  10. ReadMode('noecho');
  11. $PASSWORD = <STDIN>;
  12. chomp $PASSWORD;
  13. ReadMode(0);
  14. print "\n";
  15. print "password = $PASSWORD\n";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top