sub log_ open my log log txt or print Alarma flock log LOCK_EX print l

sub log_ {
    open my $log, '>>', 'log.txt' or print "Alarma!!!!\n";
    flock $log, LOCK_EX;
    print $log $_[0];
    print $_[0];
    flock $log, LOCK_UN;
    close $log
}