Select Code to Download

sub cmpstr {
  my( $arg ) = @_;
...
    'string concat', sub { print strConcat( $arg ) },
  );
}