А вот, оказывается, не всегда Perl знает, что нужно "умереть". Пример:
($params{smth} =~ s/\\s*(.+?)\\s*/$1/)
or $cgi->param(-name=>\'error\', -value=>qq(Blah, blah, blah...)),
$cgi->param(-name=>\'smth1\', -value=>$params{smth1}),
die print redirect(-uri => $refer_url[0].\'?\'.$cgi->query_string());
Без die в последней строчке выполнение программы продолжается, и только после её завершения, осуществляется перенаправдение.