#!/usr/bin/perl
$sevgilimsin = "komedi";
&SAYACI_GOSTER;
exit;
sub SAYACI_GOSTER {
print <<HTML;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<title>$sevgilimsin</title>
</body>
</html>
HTML
}