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