#!/usr/bin/perl

 $prop_id = "o06153";

 while(1){
   open g,"ls -rt /data/$prop_id/COMQ* |";
   while(<g>){$dd=$d;$d=$_;}close g;
   $_=$d;s/\/data\/$prop_id\/COMQ//;s/\.fits//;$n=$_;
#  printf "$d %d\n",$n;
   if($n != $l ){ 
     if($n%2==0){
       printf "New Spec $d\n";
       open h,">> LATEST_S";printf h $d;close h;
     }else { 
       printf "New Imag $d\n";
       open h,">> LATEST_I";printf h $d;close h;
     }
     $l=$n;
   }
   sleep(1);
 }