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