Select Code to Download

use strict;
use warnings;
...
    say $_ for @{ $sub->code };
    say "\n";
}

use warnings;
use strict;
...
    my $num = shift;
    return ++$num;
}

spek@scelia ~/scratch $ perl des.pl
display
...
    my $num = shift;
    return ++$num;
}