Select Code to Download

my $parameter = qq{param at declaration\n};
my $print_ref = sub { my ($p) = @_; sub { print $p } }->( $parameter )
+;
...
__END__
param at declaration
param at declaration