in reply to Perl Packages Issue in a script.

just eyeing one not yet mentioned detail very sceptically and late at night:

Is it just me or is $file in the stated sub ReadFile indeed identical to 1, assuming ReadFile itself was called correctly with one argument... ?

Fix with e.g. my ($file)=@_

(if you followed ikegami's pointers, you should have touched&fixed that one already, right?).

Good - you've seen & done it already, I should have reloaded the thread before creating the node :).