my $success = 0;
my $tries   = 0;

while ($success = open(FILECOUNTER, "+<coresys/counter.csv")) {
    last if $success       # open hat funktioniert
         or ++$tries > 5;  # mehr als 5 Versuche
    sleep(1);              # warte etwas
}

if ($success) {
    flock(FILECOUNTER, LOCK_EX);
    my $oldcounter = <FILECOUNTER>;
    my $newcounter = $oldcounter+1;
    # etc.
}
else {
    # gib eine Warnung aus, oder mach was anderes
}