#!/usr/bin/perl --

my $connectObj = MyTelnet->new();
$connectObj->open(
    Host        => 'iberiamud.mooo.com',
    Port        => 5900,
);

while (1) {}        # Poor man's main loop

{ package MyTelnet;

    use base ("Net::Telnet");
    
    sub _fillbuf {
        print "This function is never called\n";
        print "Base class's ->_fillbuf function is called instead\n";
    }
}


##</code><code>##

Error: No output
status: data error
msg: incorrect header check

##</code><code>##

Error: No output
status: data error
msg: invalid code lengths set