perl -ne print

# equal to

perl -e 'while (<>){print}'