use Net::Telnet;
use strict;

my($telnet, $timeout, $command, @line);

my $name    = 'user';
my $passwd  = 'password';
my $host    = 'host';

$timeout = 900;
$telnet = Net::Telnet->new(
                           Prompt     => '/prompt\$/',
                           Dump_Log  => 'dump.log',
                           Input_Log => 'input.log',
                           Output_Log => "output.log",
                           Host       => $host,
                           Timeout    => $timeout,
                           );

$telnet->login(Name     => $name,
               Password => $passwd,
               Prompt   => '/prompt\$/'
              );
@line = $telnet->print('sh time');
$telnet->waitfor('/prompt\$/');
$telnet->print("lo"); #logout
$telnet->close;


##</code><code>##

> 0x00000: 73 68 20 74  69 6d 65 0d  0a sh time..

< 0x00000: 73 68 20 74  69 6d 65 0d  0a sh time..

< 0x00000: 0d 00 20 20  20 31 2d 44  45 43 2d 32  30 30 31 20  ..   1-DEC-2001  01:23:33.....host$ 

> 0x00000: 6c 6f 0d 0a  lo..

00000: 6c 6f 0d 0a  lo..