调试范例perl程序的问题, 请帮忙分析一下

pnyang

C:\Program Files\OmniSecure\cgi-bin>perl guest-book.cgi
Unrecognized character \xA1 at guest-book.cgi line 2.
如果把第二行注视掉，又会说第三行有这个问题.

例子如下：
#! /PERL/BIN/PERL.EXE
    print "Content-type:text/html\n\n";
    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
     @pairs=split(/&/,$buffer);
     foreach $pair(@pairs){
    ($name,$value)=split(/=/,$pair);
    $value=~tr/+//;
    $value=~s/%([a-f A-F 0-9][a-f A-F 0-9])/pack("C",hex($1))/eg;
    $FORM{$name}=$value;
        }
   print"";
   print"留言本";
   foreach $check(values%FORM){
   if($check eq""){
   print"----------------------------------------------------------------";
   print"请不要留空";
   exit(0);
   }
   }
   $FORM{'suggest'}=~s/cMn/n/g;
   $filename="C:/Program Files/OmniSecure/htdocsbook.html";
   open(FILE,">> $filename");
   print FILE "名字FORM{'name'}\n";
   print FILE "EmailFORM{'email'}\n";
   print FILE "建议FORM{'suggest'}";
     close{FILE};
   print "谢谢留言";
   print"请观看留言本";
   exit(0);

sfatsdu

If I rememer right, on windows files are saved in UTF-8 encoding, you may import special Perl libarary to correctly excute the code
Sorry I don't know perl well enough