Select Code to Download

#!/usr/bin/perl

...
foreach ( $sub0, $sub1, $sub2, $sub3, $sub4, $sub5, $sub6 ) {
    print $count++,":\nsub ", $deparse->coderef2text($_), "\n\n";
}

0:
sub {
...
sub {
    print $_ until ();
}