1| use strict;
 2| &test();
 3| # print "$var\n";  # Global symbol "$var" requires explicit...
 4| exit;
 5| 
 6| my $var = 1;
 7| sub test
 8| {
 9|   print "var was '$var'\n";
10|   $var++;
11|   print "var is now '$var'\n";
12| }
13| __END__
14| var was ''
15| var is now '1'