Select Code to Download

>perl -E"say defined(prototype('CORE::sort')) ? 'can replicate' : 'can
+\'t replicate'"
can't replicate

sub mysort(&@) {
   my $code_ref = shift;
...
}

mysort { ... } ...      # Same as: mysort(sub { ... }, ...)