open(IN, $logfile);
@file = <IN>;
close IN;
if(@file != "")
   {
   for ($count=1; $count<9999999; $count++)
   {}
   open(LOG, ">$logfile");
   print LOG "";
   close (LOG)
   };