#!perl
use strict;

open INPUT,...
while(<INPUT>)
{
...code inside loop...
}