% perl -le 'warn "a"'
a at -e line 1.

% echo "" | perl -le '<>; warn "a"'
a at -e line 1, <> line 1.