my ($file,$nfile) = @ARGV;