sub LOGGIN
{
....
 open(LOG, ">>$log") 
      or croak "Unable to append to $log: $!";
  print LOG "[$localtime] $log : @data \n";
 close LOG or die "Cannot close log file:: $log : $!\n";

....
}