$ cat A.pm
use B;
1;
$ cat B.pm
use A;
1;
$ perl -MA -we1
$