31 lines
228 B
Perl
31 lines
228 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use CGI;
|
|
use CGI::Carp qw(fatalsToBrowser);
|
|
|
|
my $cgi = new CGI;
|
|
|
|
print $cgi->header();
|
|
|
|
print <<START;
|
|
<html>
|
|
<head>
|
|
</head>
|
|
<body>
|
|
START
|
|
|
|
|
|
print <<BODY;
|
|
|
|
|
|
...
|
|
|
|
|
|
BODY
|
|
|
|
|
|
print <<FOOTER;
|
|
</body>
|
|
</html>
|
|
FOOTER
|