Select Code to Download

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

    $telnet->dump_log(*STDOUT);