>perl -MTerm::ReadLine -le"print 'Entered: ', Term::ReadLine->new->readline" < nul

INPUT> Foo!
Entered: Foo!