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;