Потому header писать обязательно :)
#!/usr/bin/perl
use CGI qw(-any);
.....
print $q->header(-type => 'text/html');
print $q->start_html(-title=>'Hello, angel!');
....
Сперто с cpan:
#!/usr/local/bin/perl -w use CGI; # load CGI routines $q = CGI->new; # create new CGI object print $q->header, # create the HTTP header $q->start_html('hello world'), # start the HTML $q->h1('hello world'), # level 1 header $q->end_html; # end the HTML
Комментариев нет:
Отправить комментарий