#!perl -n use strict; ...code to do with every line of input stored in $_... print $_; # or just print