use Net::Telnet;
    my $telnet = Net::Telnet->new(Timeout => 10);
    $telnet->dump_log("dump.log");
    $telnet->open("machine");
    $telnet->login("user", "oass");
    $telnet->close;