Help for this page

Select Code to Download


  1. or download this
    package P;
$A = 'something';
  2. or download this
    package main;

...
print ('$::A is '.$::A."\n");
print ('$main::A is '.$main::A."\n");
print ('$main\'A is '.$main'A."\n");
  3. or download this
    package main
$A is 123
...
$::A is 456
$main::A is 456
$main'A is 456