Имеется такой вот код:
#!/usr/bin/perl -w
use lib "/usr/local/scripts/lib/";
use lib "/usr/local/script/lib/";
use CGI;
use CGI::Session;
use HTTP::BrowserDetect;
use Time::localtime;
#use sk_mod;
my $brouser = new HTTP::BrowserDetect($ENV{\'HTTP_USER_AGENT\'});
my $cgi = new CGI;
print $cgi->header(-expires=>\'no cache\', -charset=>\'koi8-r\');
if ($brouser->browser_string() ne \'MSIE\') {
print \'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">\';
}
my $headpage="Skif home page";
print $cgi->start_html(-title=>$headpage, -bgcolor=>\'ffffff\',-leftmargin=>\'0\', -topmargin=>\'0\', -marginwidth=>\'0\', -marginheight=>\'0\',text=>\'lightgrey\');
print "";
print ""; #header_table(\' K L O \',\'eng\'); print "asdasda"; print " |
"; #midle_table(); print "asdasda2"; print " |
"; #low_table(); print "asdasda3"; print " |
";
print "
";
print $cgi->end_html;
И имеется глюк - таблица выстраивается не на полную высоту экрана, а только на ту часть, что занята текстом, а надо бы на полную, что я делаю не так? (Зы если в HTML писать туже страницу - все получается как положено).
Кто-то может подсказать в чем может быть ошибка?
Браузер задетектил и нужный текст впихнул, но даже под IE (хотя все привык делать под konqueror) не растягивается.