Select Code to Download

open IN, "<&", $ARGV[0] or die $!;
binmode IN;
...
$s = <IN>;
print "line: $s";
close IN;

use strict;
use warnings;
...
print WRITEHANDLE "Test!\n";
close WRITEHANDLE;
wait;