Select Code to Download

sub printInformationWrapper {
    open (local *STDOUT,'>',\(my $var));
    thing that prints to STDOUT
    return $var;
}

{
    open (local *STDOUT,'>:utf8',\(my $b="\x{FEFF}"));
    printing_stuff
        return $b;
}