Help for this page

Select Code to Download


  1. or download this
    package Local;
use warnings;
...
our $VAR = 12;

__PACKAGE__
  2. or download this
    #!/usr/bin/perl
use warnings;
...
use Local qw( $VAR );

print "$VAR\n";