use Time::HiRes qw( time );

sub LOGGIN
{
   my $time = time;
   my $mili = sprintf("%03d", ($time - int($time)) * 100);
   my $localtime = localtime($time);

   open(local *LOG, '>>', $log) 
      or croak "Unable to append to $log: $!";
   print LOG "[$localtime.$mili] $log : @data \n";
   close LOG or die "Cannot close log file:: $log : $!\n";
}