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