Select Code to Download

#! /usr/local/bin/perl -w

...
my $offset = shift || 0;

print "$_\n" for sort {$sorter->[$offset]->()} @list;

#! /usr/local/bin/perl -w

...

my $s = $sorter[shift || 0];
print "$_\n" for sort $s @list;