$ echo 'print $0' | perl -l
    -