Select Code to Download

$sortsub = sub($$) {
  $spec->($_[0]->{$field}, $_[1]->{$field}) ||
  $oldsortsub->($_[0], $_[1])
}