22 lines
388 B
Perl
22 lines
388 B
Perl
#!/bin/perl
|
|
# ichsuche.pl
|
|
|
|
use strict;
|
|
|
|
use CGI qw(:standard);
|
|
use myHTML;
|
|
|
|
#print header();
|
|
p2 "<html>",
|
|
" <head>",
|
|
" <meta http-equiv='refresh' content='5; URL=pics_e.pl'>",
|
|
" </head",
|
|
" <body>",
|
|
" <center>",
|
|
" Diese Seite hat noch keinen Inhalt.<br>",
|
|
" Sie werden in 5 Sekunden weitergeleitet.",
|
|
" </body>",
|
|
"</html>";
|
|
|
|
end_html;
|