test.pl print "application begin\n"; use Sample2; print "application global\n"; my $s = Sample2->new('hoge'); $s->say('foo'); my $s2 = Sample2->new('fuga'); $s2->say('bar'); print "application end\n"; Sample.pm package Sample; BEGIN { prin…