#!/usr/bin/perl
$buffer=<STDIN>;
($kast, $vaartus)=split(/=/, $buffer);
print $kast, "suss", $vaartus;
chop($vaartus);
#print $vaartus;
open(SONAD, 'salad2.txt');
@read=<SONAD>;
close (SONAD);
$failinimi='vale.html';
foreach $rida(@read){
(@sise)=split(/=/, $rida);
$alg="juku";
print $sise[0],"\\", $sise[1], "/", $sise[2];
if (($sise[0] eq $kast) && ($sise[1] eq $vaartus)){$failinimi=$sise[2];
#print "\n failinimi = ", $failinimi;
}}
open(INFO, $failinimi);
@lines=<INFO>;
close(INFO);
print "Content-type: text/html\n\n";
print @lines;
print "\n";