#!/usr/local/bin/perl
  $result = sprintf ("%04d-%02d-%02d %02d:%02d:%02d ", $year+1900, $month+1, $day, $hour, $min, $sec);

open (INFILE, "< kp.list") or die "Cannot open missing list (kp.list)\n";
while (<INFILE>) {
  chomp;
  if (/SO_K0_(\w+)_(\d+)_V(\d+)/) {
    $instrument = $1;
    $fecha = $2;
    $version = $3;
  }
  $missing = 1;
  for ($i = $version; ($i < 100) and $missing; $i++) {
    $filename = sprintf ("../%s/SO_K0_%s_%s_V%02d.CDF", lc($instrument), $instrument, $fecha, $i);
    if ( -f $filename ) {
      $missing = 0;
    }
  }
  if ($missing) {
    print "$_\n";
  }
}

close INFILE;