## Connect and login.
    use Net::Telnet ();
    
    $hostname="tai02";
    $host = new Net::Telnet (Timeout => 30,
                             Prompt => '/Last/');
    $fh = $host->dump_log("log.txt");
    $host->open($hostname);
    $host->login("user", "password");


    ## Make sure prompt won't match anything in send data.
#    $host->prompt("/$prompt/");
#    $prev = $obj->option_callback("INFB");
#    $host->cmd("INFB");
    $host->prompt("/#/");
    $host->cmd("INFB");
    $host->prompt("/TAI02 #/");
    @line= $host->cmd("dir");
    print @line;

    ## Get size of file.
#    ($line) = $host->cmd("/usr/bin/ls -l $filename");