Select Code to Download

package Foo;

...

my $foo = Foo->new;
$foo->sort(sub { lc($_[0]) cmp lc($_[1]) });