use Term::ReadLine;

my $pkg = Term::ReadLine->ReadLine();
print "Term::ReadLine->ReadLine() says \'$pkg\'\n";

my $pkg2 = $ENV{PERL_RL};
print "ENV(PERL_RL) says \'$pkg2\'\n";
print "\@Term::ReadLine::ISA says ", @Term::ReadLine::ISA, "\n";