sub sort_records {
   my $sort_routine ( $opt_g =~ /^t/i
      ? sub { $a->{title} cmp $b->{title} }
      : sub { $a->{date}  cmp $b->{date}  }
   );   
   return sort $sort_routine @_;
}