I could Telnet from my windows workstation, but the following code throws "eof read waiting for login prompt:"
use Net::Telnet ();
$telnet = new Net::Telnet(Timeout=>20,Prompt => '/[\$%#>] $/');
$telnet->open("machine");
$telnet->login("username","password");
print "Logged into the system \n";
if i use waifor('/login: ?$/i') after "open" it throws
read error: An operation was attempted on something that is not a socket.
I am struck with this issue, please help me!
Edited by Arunbear: Changed title from 'Help!', as per Monastery guidelines