Select Code to Download

sub myprint { print "MYPRINT: ", @_; }

...
  : \&myprint;

$printfunc->("hello world\n");

my $printfunc = $condition
  ? sub { print @_; }
  : sub { print "MYPRINT: ", @_; }