#!/usr/bin/perl -w
use strict;
#use warnings FATAL => qw{ uninitialized };
local $SIG{__WARN__} = sub { die "your variable is not defined!\n"; };

my $var;
print "the variable is $var\n";