Permission denied at C:/Perl/lib/File/Find.pm line 450

This is complaining that the "Find.pm" module had a problem at line 450. The issue is with WHAT you are trying to FIND - not with access to the Find.pm module.

Line 450 in Version 1.04 of Find.pm is blank.

The next runnable line reads:
if ( (-e $fn) || (-l $fn) ) {
Which may indicate that you have permission problems on the Directories/Files you are trying to find (Or there is a bug in the Find.pm module).

Can you tell us what version of File::Find you are using?

"When you are faced with a dilemma, might as well make dilemmanade. "