use strict;
test();
#print "$var\n";  # Global symbol "$var" requires explicit...
exit;

my $var = 1;
sub test
{
  print "var was undef\n" if $var eq undef;
  print "var was '$var'\n";
  $var++;
  print "var is now '$var'\n";
}