C:\>echo package B;sub VERSION{333};1; >B.pm

C:\>more B.pm
package B;sub VERSION{333};1;

C:\>perl -MB -le"print for %INC;die B->VERSION"
XSLoader.pm
C:/Perl/lib/XSLoader.pm
C:/Perl/site/lib/sitecustomize.pl
C:/Perl/site/lib/sitecustomize.pl
Exporter.pm
C:/Perl/lib/Exporter.pm
strict.pm
C:/Perl/lib/strict.pm
B.pm
C:/Perl/lib/B.pm
1.09 at -e line 1.