#!/usr/bin/perl

print "Content-type: text/html\n\n";
print q!<html>
<head>
<META http-equiv="content-type" content="text/html; charset=ISO-8859-2">
!;

$data=$localtime;
print q!<META http-equiv="Expires" CONTENT="$data">
<title>
Księgi Gości Strony The Cure
</title>
</head>
<body>
!;

open (PLK,"guests");
print <PLK>;
close(PLK);
print "<hr>
Zapraszamy na <a href=\"index.html\">główną stronę o The Cure</a>
</body>
</html>
";
