my $sem :shared;
open LOG, '>', 'log.txt' or die $!;


sub logit {
    lock $sem;
    return printf LOG @_;
}