Select Code to Download

    print STDOUT $foo;

    print $foo;

sub prepare_foo_print {
    my ($foo, $file) = @_;
...
sub print_whatever {
    print shift;
}