Select Code to Download

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

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

use strict;
test();
...
  $var++;
  print "var is now '$var'\n";
}

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