if ( ! $sanity )
     { print "Mandatory happiness violated.\n"; exit }
else { print "You are happy.\n" }