my $ip = $ENV{'HTTP_CLIENT_IP'} || $ENV{'HTTP_X_FORWARDED_FOR'} || $ENV{'REMOTE_ADDR'} || 'UNKNOWN'; my $timestamp = localtime(); open(my $log_fh, '>>', 'log.txt') or warn "Nao da pra abrir o log: $!"; flock($log_fh, 2); # exclusive lock print $log_fh "[$timestamp | Turn: $HislandTurn] LOGIN on (ID: $HcurrentID) from IP: $ip\n"; close($log_fh); }