print "Content-type: text/html\n\n";
use strict;
use warnings;
my $in = $ENV{'QUERY_STRING'};
chomp $in;
our ($File, $Src) = split(/\&/,$in);
open(FILE, ";
chomp @downs;
close(FILE);
foreach (@downs) {
my ($counts, $file, $forsrc) = split(/\|/,$_);
our $coolhash{$file} = "$counts|$forsrc";
}
foreach (keys %coolhash){
my ($cnts,$srct) = split(/\|/, $coolhash{$_});
if (($_ eq $File) && ($srct == $Src)) { print "$cnts"; exit;}
}