Wise Monks
In regular (tcl) expect the following code waits for the user to enter a password followed by enter and then returns to the script:

expect "Password:"
#ask user for password and then return to script
interact -nobuffer -re "(.*)\r" return
[download]

I am having problems writing this in perl expect. I used the following:

$session->expect(60, -re, "Password:");
$session->interact(\*STDIN, "\r");
[download]

.. but this does not seem to work. I just get another login request like the inputted password is not going to the telnet login. Am I missing something? Can anyone offer any suggestions?