perl -MO=Deparse -n -e 'print "file is: ".<>;'

##</code><code>##

LINE: while (defined($_ = <ARGV>)) {
    print 'file is: ' . <ARGV>;
}

##</code><code>##

ls dir | perl -n -e 'print "File is $_"'