flockってwin2000で使えてるのですか？anhttpd&ActivePerlです。

eval{ flock(); };
die "errer!" if $@;

でも出力はないのですが，ロックしてないクセにそのまま真返してそうで・・・