my $file  = shift;
my $nfile = shift;