sub safe_open {
    my $fn = shift;
    $fn =~ s/^(>>?)//;
    $mode = length($1);
    my $flags = $mode == 1 ? O_CREAT | O_WRONLY | O_TRUNC  :
                $mode == 2 ? O_CREAT | O_WRONLY | O_APPEND :
                O_RDONLY;
    sysopen(my $fh, $fn, $flags) or die "Can't open $fn: $!";
    if ($flock_enabled) {
        flock($fh, LOCK_EX) or die "Can't flock $fn: $!";
    }
    seek $fh, 0, 0;
    return $fh;
}
[download]