Есть скрипт на fastcgi основное достоинство которого в том, что он единожды открывает файл, а не на каждое соединение open ... close:
#!/usr/bin/perl
use strict;
use CGI::Fast;
my $logfile = '/usr/local/www/logs/test';
open L, ">> $logfile";
while(my $req=new CGI::Fast) {
print L "Some text\n";
}
close L;

Можете привести пример как это же написать для mod_perl?
И получу ли я преимущества в производительности при переходе на mod_perl?