use Net::Telnet();
$telnet = new Net::Telnet (Timeout => 60, Error=>'die', Prompt => '/ksh\$ $/i');