Help for this page

Select Code to Download


  1. or download this
    #!perl -l
use strict;
use warnings;
print "v: $v";
BEGIN{ my $v }
  2. or download this
    #!perl -l
use strict;
use warnings;
BEGIN{ my $v }
print "v: $v";
  3. or download this
    #!perl -l
use strict;
use warnings;
BEGIN{ our $v }
print "v: $::v";
  4. or download this
    #!perl -l
use strict;
...
my $v = 5;
BEGIN{ $v++ }
print "v: $v";
  5. or download this
    #!perl -l
use strict;
...
my $v;
BEGIN{ $v++ }
print "v: $v";