$ perl -e 'my $type="blee"; eval { print "bad type\n"; print "blee\n" } unless ($type eq "newer" || $type eq "older")'
bad type
blee