use strict;
use warnings;

my $val = 0;

print +($val) ? "defined" : "undefined"; # prints undefined

print "\n";

print +(defined $val) ? "defined" : "undefined"; # prints defined

undef $val;

print "\n";

print +(defined $val) ? "defined" : "undefined"; # prints undefined