print "username: ";
chomp ($uname = <STDIN>);
print "\npassword: ";
chomp ($password = <STDIN>);
print "\nYou entered username $uname and password $password\n";