Select Code to Download

my $text;
if (@ARGV) {
...
   local $/;
   $text = <STDIN>;
}

my $text; { local $/; $text = <>; }