#!/usr/bin/perl

for( 0, '', undef, 1 ){
    if( $_ ){
        print "ohne defined: ;;$_;;";
    }
    if( defined $_ ){
        print "mit defined: ;;$_;;";
    }
}