#!/usr/bin/perl

use strict;
use warnings;
use CGI ':standard';

print header,
    start_html('Player Point Tracker'),
    h1('Point Tracker'),
    start_form,
    body(''), p,
    'Players Name: ',
    textfield('name'), br,
    submit('Search!'),
    end_form, p,
    hr;

my $search_term =param('name');

for my $digit (0 .. 9) {
    for my $file (<$digit*>) {
        open (my $FILE_HANDLE, '<', $file) || die "Can't open $file: $! \n";
        while (<$FILE_HANDLE>) {
            chomp;
            my ($word, $count) = split / /, $_;
            if ($word =~ /^$search_term$/) {
                print "At 18:00 server time $word had $count points.",p;
            }
        }
        close ($FILE_HANDLE);
    }
}