$ ./perl -e 'print "UNDEFINED\n" unless (defined(1.23/0.00))' UNDEFINED