local @ARGV=qw(c:/tmp.txt);
while (<>) {
    chomp;
    print "\$_: '$_'\n";
}