Select Code to Download

sub make_print_ref {
    my ($parameter) = @_;
...
};

my $print_ref = make_print_ref(...);