$ echo foo | perl -e '<>; warn'
Warning: something's wrong at -e line 1, <> line 1.