Select Code to Download

# Instead of
>perl -w myscript.pl -some -command -line
# you invoke it as
>perl -w myscript.pl -some -command -line >output.xml

BEGIN {
  my $outfile = 'output.xml';
...
  open STDOUT, ">", $outfile
    or die "Couldn't create '$outfile': $!";
};

# Instead of
sub frobnitz {
...

# ...
print frobnitz($in);