use Net::Telnet;
$ip='xx.xxx.xx.xx';
$ip_port='10009';
$port  = Net::Telnet->new( Host=>$ip,Port=>$ip_port,Dump_log=> "dump.log");

@lnes= $port->cmd("input keyevent 66");
        sleep(5);
        $lc=0;
        print "Console Log:";
        while($lc<5)
        {
            print $lnes[$lc];
            print FILE $lnes[$lc];
            ++$lc; 
        }