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]

Unfortunately, there's no guarantee the error code is related to the problem. That would be fine if that was our only tool, but previously suggested strace provides the same data more accurately.