Select Code to Download

$ perl -Mstrict -Mwarnings -MO=Deparse -e '
use constant FOO => sub { join( shift, @_, ); };
...
}
->(', ', 1..10);
-e syntax OK

perl -Mstrict -Mwarnings -e '
printf "%s\n", do {
...
        join shift @_, @_;
};
'

#!/usr/bin/env perl
use strict;
...
              Rate  do_join_1 sub_join_1
do_join_1  17935/s         --       -73%
sub_join_1 66991/s       274%         --