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 @lines;