Select Code to Download

sub mysort (&@) {
    my $sub = ref $_[0] eq 'CODE' ? shift : sub {...};
...
 mysort {...}      'x', 'y', 'z';
 mysort \&subname, 'x', 'y', 'z';
&mysort(           'x', 'y', 'z');