Select Code to Download

use Capture::Tiny qw( capture_stdout );

...
my $output = capture_stdout { print "Hello world!\n"; };

print "<<<$output>>>\n";

<<<Hello world!
>>>