script.pl < file.txt

##</code><code>##


#!/usr/local/bin/perl -w
use strict;

my $line;

foreach $line (@ARGV) {

        print "The line is: $line\n";

}