I'm assuming this still isn't working for you. I'll save you the trouble of admonishing you for using globals (like $log and @data appear to be, but in fact may not be as you've omitted a lot of your code). But this change should fix the specific issue you're after with your code:

sub LOGGIN
{
....
 # sleep 1;
 $localtime = localtime();
 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";

....
}
[download]

To prove it, uncomment the sleep line.

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );
[download]