Help for this page
my $m=preprocess::scanfile ($ARGV[0]); print $m;
print (preprocess::scanfile ($ARGV[0]));