#!/usr/bin/perl

use strict;
use warnings 'all';

my $a = undef;

print $a || 0 eq 'name' ? 1 : 0;