#!/usr/bin/perl --

use strict;
use diagnostics;
use warnings;

# No error produced:
#    my $connectObj = Net::Telnet->new();
#    $connectObj->open(
#        Host        => 'localhost',
#        Port        => 5555,
#    );
#
#    connectObj->eof();

# Produces an error:
my $connectObj = MyTelnet->new();
            
$connectObj->open(
    Host        => 'localhost',
    Port        => 5555,
);

connectObj->eof();
            
### Inherited Net::Telnet package ###################################

{ package MyTelnet;

    use base ("Net::Telnet");
    
    # (This is what Net::Telnet->eof actually looks like)
    #    sub eof {
    #        my ($self) = @_;
    #
    #        *$self->{net_telnet}{eofile};
    #    } # end sub eof
}