Help for this page
unless ($type eq 'newer' || $type eq 'older') { print "bad type\n"; print "blee\n"; }
do { print "bad type\n"; print "blee\n"; } unless ($type eq 'newer' || $type eq 'older');