sub start ($) {
    my $line = shift;
    #get first char, cause it means an affair wich happening, like op, deop, join and so on
    my $cmd = substr($line, 0,1);
    
    flock($LOG, 'LOCK_EX');
    print $LOG $line;
    flock($LOG, 'LOCK_UN');
    
    print $line;
}

sub open_log {
  my $logfile = 'logfile2.txt';
  $LOG = IO::File->
        new($logfile,'0_WRONLY|0_APPEND|0_CREAT,0664') || return;
  $LOG->autoflush(1); #das is wichtig!
  return 1;
}