Select Code to Download

sub mysub($) {
  my $str = shift;
...
no strict 'refs';
no strict 'subs';
&{$subref}( 'text' );