#!/usr/bin/perl

use Net::Telnet();
$telnet = new Net::Telnet ( Timeout=>10,
                            Errmode=>'die',
                            Prompt => '/[>]/');
$telnet->open('servername');
$telnet->login('username', 'password');
print $telnet->cmd( 'dir' );