if ($condition) { &doAction; } else { print "doAction not executed due to a failure of $condition\n"; }