#! /usr/bin/perl
use warnings;
use strict;

my $test;
my $undef;
my $true = 1;
my $zero = 0;

$test = $true || ($undef && $undef != $zero) ? $undef : $zero;

print "test = $test\n";