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";

....
} 


##</code><code>##

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