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

print  defined (undef) ,"\n";
# prints nothing but a newline

my $y = undef;
print defined ($y),"\n";
# prints nothing but a newline

my $x = '';
print defined ($x), "\n";
# prints a 1