Select Code to Download

$contents=slurp('foobar');
sub slurp {local$/=<>if local@ARGV=@_}

 
{local$/;$contents=<>if local@ARGV='foobar'};

 
$contents=join'',<_>if open _,'foobar';

$contents=`cat foobar`