#!/usr/bin/perl
$buffer=<STDIN>;
($kast, $vaartus)=split(/=/, $buffer);
#print $kast, "suss", $vaartus;
#chop($vaartus);
#print $vaartus;
open(SONAD, 'salad.txt');
@read=<SONAD>;
close (SONAD);
$failinimi='vale.html';
foreach $rida(@read){
($sona, $siht)=split(/=/, $rida);
#print $sona, "/", $siht;
if ($sona eq $vaartus){$failinimi=$siht;
#print "\n failinimi = ", $failinimi;
}}
open(INFO, $failinimi);
@lines=<INFO>;
close(INFO);
print "Content-type: text/html\n\n";
print @lines;
print "\n";