up(); 
up(); 
print get(); 
BEGIN { 
my $foo = 1; 
sub up { 
        $foo++; 
sub get {$foo} 
} 
}