use strict;
use warnings;

chomp(my $in = $ENV{'QUERY_STRING'});

my ($File, $Src) = split(/\&/,$in);

open(FILE, "<countdown.log") || die $!;
chomp(my @downs = <FILE>);
close(FILE);

my %coolhash = {};
foreach (@downs)
{

        my ($counts, $file, $forsrc) = split(/\|/,$_);
        $coolhash{$file} = "$counts|$forsrc";

}

foreach  (keys %coolhash)
{ 
         my ($cnts,$srct) = split(/\|/, $coolhash{$_});
         if (($coolhash{$_} eq $File) && ($srct == $Src)) { print "$cnts"; exit;}

}