Select Code to Download

  if ($type) {
    croak "$type is not supported" if !exists $sorts{$type};
...
    my $random_sort = (keys %sorts)[rand (keys %sorts)];
    return $sorts{$random_sort}->($a,$b);
  }

  if ($type) {
    croak "$type is not supported" if !exists $sorts{$type};
...
  else {
    die "A sort type was not selected.";
  }