Select Code to Download

unshift @ARGV, $rfile;
while( <> ) {
  # ....
}

use Tie::File;
tie my @array, 'Tie::File', $rfile or die;

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