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

my $foo = 1;
my $bar;

print '$foo is ', defined $foo ? "defined" : "not defined";
print '$bar is ', defined $bar ? "defined" : "not defined";