Fejl i perl

Perl-programmet skriver \"flock() unimplemented on this platform\".
Fejlen sker i følgende kode:

sub update {

    open (DATA,\"<protected/data.file\");
    flock (DATA,2);
    @data_array = <DATA>;
    flock (DATA,8);
    close (DATA);

    $a=0;
    foreach (@data_array) {
        @new_array = split(/\\|/,$data_array[$a]);
        $new_array[0] = $new_array[0] + $new_array[2];
        $new_array[1] = $new_array[1] + $new_array[3];
        $new_array[2] = 0;
        $new_array[3] = 0;
        $data_array[$a] = join(\"\\|\",@new_array);
        $a++;
        }

    open (DATA,\">protected/data.file\");
    flock (DATA,2);
    print DATA @data_array;
    flock (DATA,8);
    close (DATA);
    &create_html_file;

}

\'data.file\' indeholder:
1|1|0|0|Webmaster|webmaster@listsitepro.com|Click Here To Earn $$$|#1 Free Search Engine|http://www.clickheretofind.com/index.php3?l=lspro|||password|936423903|||0|0|0|0

Hvad kan der være galt?

Jeg køre scriptet via personel web server.