#!/usr/bin/env perl

use Term::ReadKey

print "Username: ";
$USERNAME = <STDIN>;
chomp $USERNAME;
print "\n";
print "Password: ";
ReadMode('noecho');
$PASSWORD = <STDIN>;
chomp $PASSWORD;
ReadMode(0);
print "\n";
print "password = $PASSWORD\n";