Use Net::TelNet;
$telnet = new Net::Telnet ( Timeout=>3600,Prompt => "/$prompt/i",Errmode=>'die');
    $telnet->open("susan");
    $telnet->waitfor('/login: $/i');
    $telnet->print('blab');
    $telnet->waitfor('/password: $/i');
    $telnet->print('blab');
    $telnet->waitfor("/$prompt/i");
    @hostname = $telnet->cmd("hostname");
    print"Host Details => ", join("-",@hostname) , "\n";