$connect = new Net::Telnet (Telnetmode => 0);
    $connect->open(Host => $hostname,
                   Port => $port);

    $connect->print("$rtrv");
    (@prematch,$match) = $connect->waitfor('/COMPLD/');
    @rlines = $connect->getlines;
    @alines = $connect->getlines;
    @blines = $connect->getlines;
    print @rlines;
    print "\nShoud have all printed there...\n\n";
    print @alines;
    print "\nAnd that was the second array\n\n";
    print @blines;
    print "\n";
    print "\nThat is the last of it\n\n";