just a guess....

Do either of these work?

print scalar preprocess::scanfile ($ARGV[0]);
print (scalar preprocess::scanfile ($ARGV[0]));
[download]

<P -Blake