Select Code to Download

my $slurp;
{local $/;
 $slurp = <INPUTFILE>};

my $slurp = do {local(@ARGV, $/) = "inputfile"; <>};

my $slurp = `cat inputfile`;