if ( defined $foo ) { print "definiert\n" } else { print "nicht definiert\n" }