Select Code to Download

open PROG, "|program" or die "Can't open output pipe to 'program'";
print PROG function();
close PROG;

my $input = "first line\nsecond line";
open TEMP, '>' "temp$$";
...
print $output;
unlink "temp$$";
# (tested)