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

my $scalar = undef;

if (defined $scalar) {
    print "\$scalar is defined\n";
}
else {
    print "\$scalar is undefined\n";
}

__END__
$ perl test.pl
$scalar is undefined