my $m=preprocess::scanfile ($ARGV[0]); 
print $m;

##</code><code>##

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