Global symbol "$var" requires explicit package name at p03.pl line 3.
Execution of p03.pl aborted due to compilation errors.

##</code><code>##

my $var;    # compile time component inserts variable into scratchpad
            # of the scope
$var = 1;   # run-time component assigns the value

##</code><code>##

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";
}

##</code><code>##

var was undef
var was ''
var is now '1'