perl -e' BEGIN { $ENV{PERL_RL}="Perl" } $\="\n"; use Term::ReadLine; $term=Term::ReadLine->new("test"); print $term->ReadLine; ' Term::ReadLine::Perl