my $bool = not (1==1);
if ($bool eq "") {
   print "False stringifies to the empty string.\n" 
} else { print "Nope.\n" }