#!/usr/local/bin/perl

#90 to 93
foreach $year (93 ) {
     #foreach $month qw ( 01 02 03 04 05 06 07 08 09 10 11 12 ) {
     foreach $month qw ( 01 ) {
          my $file = "/homes/data/cps-basic/cpsb$year$month.Z" ;
          print "$file \n" ;
          `ls $file` ;
          my $out = "/home/data/morg/raw/morg$year$month" ;
          `zcat $file | awk 'substr($0,70,1) == 4 || substr($0,70,1) == 8' > $out `;
          `compress $out` ;
     }
}
