use strict;
use warnings;

{
	package Class;

	my $n = 42;

	sub new {
		my $pkg = shift;
		bless {}, $pkg;
	}

	sub foo;
}

sub Class::foo
{
	print "$n\n";
}