use Net::Telnet; 
    
    my $t = new Net::Telnet (Timeout => 100, Prompt =>    '/[^ <-]\>/', Errmode => "return") ;    
    
        $username = "administrator";
    
        $passwd = "";
    
      
        $t->open("hostname");
    
    
        $t->login($username, $passwd);
    
        
        @lines = $t->cmd('dir');
    
       print "\n @lines";