#!/usr/bin/perl
use strict;
use warnings;

if (1==1) {
	require 'test2.pl';
}

print 'vorher: '.main->can('test')."\n";
require 'test2.pl';
print 'nachher: '.main->can('test')."\n";

{
	package testtest;
	require 'test2.pl';
}
testtest::test();