package TestPm;

use strict;
use warnings;

use TestPm2;

sub foo {
 print "foo\n";
}

1;

##</code><code>##

package TestPm2;

use strict;
use warnings;

use TestPm;

1;