Help for this page

Select Code to Download


  1. or download this
    my $x = 1;
BEGIN { $x = 2; }
print $x; # 1
  2. or download this
    BEGIN { my $x = 1; }
print $x; # undefined, failure under strict.pm
  3. or download this
    my $x = 1;
{
...
    $x = 2;
}
print $x; # 2
  4. or download this
    my $x = 1;
{
...
    my $x = 2;
}
print $x; # 1