http//---------.cgi?○○

で○○の文字を保存されていくように↓つくったんだが
エラーがでるっぺよ　なんで〜？

#!/usr/local/bin/perl

$mes=$ENV{'QUERY_STRING'};
chomp($mes);
open(FILE,">>s.dat")||die("Error!");

flock(FILE,2);
print FILE $mes."";
flock(FILE,8);

close(FILE);