package pack1;
$var = 26;
package pack2;
$var = 34;
package pack1;
print ("$var\n");

$mypack::var = 21;

package mypack;
$var = 26;
package main;
print ("$mypack::var\n");

&mypack::printfunc();

#======================================================#
#!/usr/bin/perl

package AP;
local $a = 1;
sub b { return ($a + 2);}
sub c { return (&b + 4);}
package main;
local $a = 8;
sub b { return ($a + 16);}
sub c { return (&b + 32);}
print &AP::c;