I believe Term::ReadLine will read from the console and not STDIN.

Update: Confirmed

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

INPUT> Foo!
Entered: Foo!
[download]