Select Code to Download

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

someusername
somepassword

perl script.pl < answer.txt

C:\test\scratch>perl script.pl < answer.txt
username:
password:
You entered username someusername and password somepassword