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


@ARGV = ("test1.txt");
while (<>) {
	chomp;
	print "It was $_ that I saw in some stooge-like file!\n";
}
------------------------