Select Code to Download

    my $str;
     my $io = tie *STDOUT, 'IO::Scalar', \$str;
...
    untie *STDOUT;
       
        # $str now contains the output of the print_monks() function.

use Some::Module qw(print_blah);

...
        
        # print_blah() prints to stdout.