#!perl -n
use strict;
...code inside loop...