Маленькая трабла с cgi

Есть скрипт который открывает страницу но при открытии пишет - "script produced no output"

в чем может быть проблема??
сам скрипт ниже

#!/usr/bin/perl

require "load.pl";
$table="reclamajob";
$url_job_form="../rus/job_form.htm";

use DBI;
$|= 1;            # Autoflush

$dbh = DBI->connect("DBI:ODBC:$name_db",$opt_user,$opt_password) || die "Can\'t connect: $DBI::errstr\\n";
$sth=$dbh->prepare("select * from $table order by name_vac") or die $dbh->errstr;
$sth->execute() or die $sth->errstr;


print "Content-type: text/html";
print "\\n\\n";
&shapka;           #вывод шапки

print <<"E_SH";

     
     

Вакансии компани "М Стиль офис".

E_SH while (($row = $sth->fetchrow_arrayref)) { if ($row->[6] ne ""){$e_mail="или E-mail:[6]?subject=$row->[1]\\"> $row->[6]";}    else {$e_mail="";} print <<"EOF";             $row->[1]             $row->[2]       $row->[4] Тел.:$row->[5] $e_mail       EOF } $sth=$dbh->disconnect; print "

\\n";
&podval;
exit();

[Evgeny]

Может быть он по ошибке вылетает ещё до того, пока что-нибудь в аутпут написал?