#!/usr/bin/perl -Tw

my $v1;

$v1 = undef;
print "VALUE: " . (defined($v1) ? $v1 : "UNDEFINED") . " ";
if ( 0==1
    || $v1 ne 'None' ) {
    print "IF RAN\n";
}
else {
    print "ELSE RAN\n";
}

$v1 = '';
print "VALUE: " . (defined($v1) ? $v1 : "UNDEFINED") . " ";
if ( 0==1
    || $v1 ne 'None' ) {
    print "IF RAN\n";
}
else {
    print "ELSE RAN\n";
}

$v1 = 'None';
print "VALUE: " . (defined($v1) ? $v1 : "UNDEFINED") . " ";
if ( 0==1
    || $v1 ne 'None' ) {
    print "IF RAN\n";
}
else {
    print "ELSE RAN\n";
}

$v1 = 0;
print "VALUE: " . (defined($v1) ? $v1 : "UNDEFINED") . " ";
if ( 0==1
    || $v1 ne 'None' ) {
    print "IF RAN\n";
}
else {
    print "ELSE RAN\n";
}

$v1 = 'a';
print "VALUE: " . (defined($v1) ? $v1 : "UNDEFINED") . " ";
if ( 0==1
    || $v1 ne 'None' ) {
    print "IF RAN\n";
}
else {
    print "ELSE RAN\n";
}