flock in perl

[Tick]

Hi zusammen,

hab folgende Konstruktion:

use Fcntl ":flock";
open(FILE,">> cases.csv") or die "Problems to open file: $!\n";
flock FILE, LOCK_SH;
print FILE time();
print FILE "$parameter{serialnumber};
close(FILE) or die "Problems to close file: $!\n";

Leider kommt dann der error:
Problems to close file: Permission denied.

Wenn ich "flock FILE, LOCK_SH;" auskommentiere dann funkts. Teste es unter Windows. Was mach ich falsch?

ciao,
Tick