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

my $x;
print defined($x) ? "Defined\n" : "Undefined\n";
print $x;