require './my_flock.pl';
while (1) {

　　while ( not defined ($lock = &my_flock()) ) {};
　　　　open (IN, "./count.txt");
　　　　$data = <IN>;
　　　　close (IN);
　　&my_funlock($lock);

　　print ++$data. "\n";

　　while ( not defined ($lock = &my_flock()) ) {};
　　　　open (OUT, ">./count.txt");
　　　　print OUT $data. "\n";
　　　　close (OUT);
　　&my_funlock($lock);

　　if ($data >= 10000) {
　　　　last;
　　}
}

>>371のその辺のファイルロックを別ファイルに取って呼び出してる。
これを、二つのプロセスで実行してみろ。
無事に10000までカウントなんぞできんぞ。