Есть скрипт который открывает страницу но при открытии пишет - "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();