Select Code to Download

  my %sorts = (
    'case sensitive forward'             => sub { $_[0] cmp $_[1] },
...
my @list = qw(foo Bar baz Fuzz);

print join(', ', sort { do_sorts($a,$b,('case sensitive forward revers
+e')) } @list)."\n";