Help for this page
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") ;