Select Code to Download

use File::Temp qw(tempfile);

...
select($saved_fh);
$text = join '', <$temp_fh>;
print "The text was '$text'\n";

use File::Temp;
use Carp;
...
  seek($temp_fh, 0, 0);
  wantarray ? <$temp_fh>: join '', $temp_fh;
}

my $output = eval_print_trap("print 'Waka waka!'");