fcgi不能用CGI模块（对象）？

fcgi不能用CGI模块（对象）？
1 #!/usr/bin/perl
use CGI;
use FCGI;
while(FCGI::accept()>=0) {
my $cgi = new CGI;
my $id = $cgi -> param("id");
print "Content-type: text/html\n\n";
print "id: $id<br>\n";
}


http://localhost/test.fcgi?id=1
id等于1，然后一直都是“1”了。。。
http://localhost/test.fcgi?id=2
http://localhost/test.fcgi?id=3
http://localhost/test.fcgi?id=4
值都没有变化。。。

1 此贴你已经花了1　园阅读费，可以阅读 *@@* 了,要看仔细
贴主共投资了 10 园血本，每份定价 1 园出售
贴主目前亏损 -9 园
购买者1人　 1 1
改用CGI::Fast就行了，但如何将旧模式改为支持fcgi呢？例如将CGI改为支持fcgi，哪有这方面的资料？

CGI::Fast 里就有例子. 1 此贴你已经花了1　园阅读费，可以阅读 *@@* 了,要看仔细
贴主共投资了 10 园血本，每份定价 1 园出售
贴主目前亏损 -9 园
购买者1人　 1 1
CGI::Fast 里就有例子.

我使用 FCGI 很简单. 只是界面的 perl 程序加载 CGI::Fast. 然后把所有的工作用一个 while 循环包起来即可. 没有其他的了. 在你的例子里, 你都不用加载 FCGI ,

use CGI::Fast;
while( my $q = new CGI::Fast ) {
my $id = $q->param("id");
print "Content-type: text/html\n\n";
print "id: $id<br>\n";
}