$ echo print(666) | perl -l - | cat
666

$