$ perl -MO=Deparse -e '$line = readline(*STDIN)'
$line = <STDIN>;
-e syntax OK