Select Code to Download

use sort '_mergesort';
my @sorted =
    sort { substr($a, 0, 1) cmp substr($b, 0, 1) }
    qw( foo bar baz );

package Mod;

...
sub baz { print "$baz\n" };

1;