sub oops {
   return FALSE;
}
print "Oops 'FALSE' is true in Perl" if &oops;