#!/usr/bin/perl -p
BEGIN{ 
    $rfile = 'myfile.txt';
    unshift @ARGV, $rfile;
}