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

my $x;

if (defined $x) {
        print "True\n";
} else {
        print "False\n";
}

if (defined defined $x) {
        print "True\n";
} else {
        print "False\n";
}