$sockOpened{$fn}->close()    if defined($sockOpened{$fn});
...
        if (!defined($sockOpened{$fn}) && !open($sockOpened{$fn}, ">&$fn")) {
...
        $bytes = syswrite($sockOpened{$fn}, "$count/n", length($count)+1, 0);