use Net::Telnet ;
my $telnetSession = new Net::Telnet (Timeout => undef, Prompt => '/\>/') ;
$telnetSession->open("10.0.0.1") ;
$telnetSession->login("administrator", "password") ;
my @DirInfo = $telnetSession->cmd("dir") ;