Select Code to Download

BEGIN {
   package class_vars;
...

   printf "one=%d two=%d, three=%d\n", $p->one, $p->two, $p->three;
}

one=1 two=2, three=3

BEGIN {
   ...
   $INC{'class_vars.pm'} = __FILE__;
}