Select Code to Download

my $sink = '';
open( my $fh, '>', \$sink ) or die "Can't open handle into scalar: $!\
+n";
...
for( @lines ) {
## ...
}