Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  open my $h, ">", \$scalar;
  print "End of $_\n";
}