#/usr/bin/perl
use strict;
my $test;
$test = 1 || (undef && undef != 0) ? undef : 0; 

print "test = $test\n";

##</code><code>##

OUTPUT:
test =