#! /usr/bin/perl -w
my $var = undef ;
print "\$var is $var.\n" ;