Select Code to Download

my $myfile = $ARGV[0];
open FILE, "<", $myfile || die "No open $!\n";
...
my $a = <FILE>;

my @t = split(/^\n/m, $a);