{
    sysopen my $trigger,
            $config->{xmlpath}.'trigfile.tf',
            O_WRONLY | O_EXCL | O_CREAT
        or die $!;
    flock $trigger, LOCK_EX | LOCK_NB or die $!;
    print $trigger $/ or die $!;
    close $trigger or die $!;
}