No way. There should be at least "()()" added. If not, you didn't execute the requested code. (Mind you, I'm not convinced of the usefulness of the test.)

By the way, I'm confused as to how /opt/rocks/lib/perl5/5.8.8/ became /usr/lib/perl5/5.8.8 halfway through the thread.

I think its useful, this is what I get:

C:\Temp>echo package FooTempTest;warn __PACKAGE__; 1; > FooTempTest.pm

C:\Temp>perl -MFooTempTest -e 1
FooTempTest at FooTempTest.pm line 1.

C:\Temp>cacls.EXE FooTempTest.pm /E /D %username%
processed file: C:\Temp\FooTempTest.pm

C:\Temp>more FooTempTest.pm
Cannot access file C:\Temp\FooTempTest.pm

C:\Temp>perl -e" eval {require FooTempTest; 1} or die qq{($@)($!)($^E)
+}"
(Can't locate FooTempTest.pm in @INC (@INC contains: C:/Perl/site/lib 
+C:/Perl/lib .) at -e l
ine 1.
)(Permission denied)(Access is denied) at -e line 1.
[download]