#!/usr/local/bin/perl
  foreach $file (<wi_h0_mfi_199506*.cdf>) {
          print " Processing CDF: $file\n";
          system "correct_cdf  $file" ;
 }

