unless ($type eq 'newer' || $type eq 'older') {
  print "bad type\n";
  print "blee\n";
}