Perl: FastCGI + die(), помогите пожалуйста

Вот с таким способом работает как надо:
#!/usr/bin/perl -w
use CGI::Fast qw(:standard);

while ($query = CGI::Fast->new()) {
eval {
print header(
-type => 'text/plain',
-charset => 'UTF-8'
);
local $SIG{__DIE__} = sub { print STDERR "SIG: @_"; };
print "Hello, World!\n";
die("I am die!");
};
}

Но в эффективности данного метода сомневаюсь...

Хм.. тест с использованием Benchmark показал что с eval'ом все-равно что без него, так что думаю это вариант

а зачем die() в cgi?

1) die()
$ perl -e 'die();'; echo $?
255

2) exit()
$ perl -e 'exit();'; echo $?
0
$

я бы юзал 2 вариант или при использовании первого проверял бы $@ после блока eval

> а зачем die() в cgi?

Очень просто. Я ловлю $SIG{__DIE__} и выдаю пользователю ошибку в формате xml с описанием номера строки и файла где произошла ошибка. Кроме того он используется как немедленное прекращение работы запроса.