open(REPORT1, ">../IMAGES/$directory$filename");
$OUT = "1gfo_reminders       ".$SYSDATE;
open (OUT01, ">>/home2/onegfoco/cron_output/CRON_JOBS.txt");
printf (OUT01 "%s \n",$OUT);
close(OUT01);


##---------------------##

open (IN01, "<x.dat");
  while (<IN01>) {
   chop($_);
  @data = split(/\t/,$_, 10);

   }

close(IN01);