my $file = '0001';
  open OUT, "> $file.ok" or die cannot open $file.ok for output: $!\n";
  close OUT;