#!/usr/bin/perl 
use constant TRUE => 1;
use constant FALSE => 0;
my $a;
if ($a == FALSE) { print "Nix true\n" }
$a = "Depp!";
if ($a == ! TRUE) { print "Kein wahrer Depp!\n" }
if ($a == FALSE) { print "Ein falscher Depp!\n" }