На следующий скрипт
use DBI;
my $dbh=DBI-connect("DBI:mysql:database=test; host=localhost", "root", "")||$dbi::errstr;
@tables=$dbh-func(' _listtables');
foreach $line(@tables) {
print $line, "\n";
}
$dbh-disconnect();

выдает следующую ошибку
premature end of script headers:test.pl
Где здесь ошибка