#!/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";
    }
}