#!/usr/bin/env perl
 
use File::Basename;

use strict;
use warnings;

@ARGV = (dirname(__FILE__)."/test1.txt");

while(<>) {
    chomp;
    print "It was $_ that in some stooge like file!\n";
}

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

@ARGV = ("C:/Scripts/test1.txt");

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