Select Code to Download

use constant {
    ONE  => 1,
...
    NINE => 9,
    TEN  => 10,
};

sub ONE  () { 1; }
sub TWO  () { 2; }
...
sub NINE () { 9; }
sub TEN  () { 10; }

{
    my %constructor_args;
...
        Some::Module::->new(\%constructor_args);
    }
}

#!/usr/bin/env perl

...
__SECOND__
g|h|i
j|k|l

h i
k l
b c
e f