#!/usr/bin/perl - wT

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTML::TreeBuilder;
use Data::Dumper;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser); # show errors in browser

print "Content-type: text/html\n\n"; # print output to browser

my $url = 'https://www.flashscore.com/football/england/premier-league-2018-2019/results/';
my $ua = LWP::UserAgent->new;

sub get_scores {
    my $response = $ua->get($url);
    if ($response->is_success) {
        my $tree = HTML::TreeBuilder->new;
        $tree->parse($response->decoded_content);
        return $tree;
    } else {
        die $response->status_line;
    }
}

my $results = get_scores();

my @times = map { $_->as_text } $results->look_down(_tag => 'div', class => 'event__time');
my @home_teams = map { $_->as_text } $results->look_down(_tag => 'div', class => 'event__participant event__participant--home');
my @scores = map { $_->as_text } $results->look_down(_tag => 'div', class => 'event__scores fontBold');
my @away_teams = map { $_->as_text } $results->look_down(_tag => 'div', class => 'event__participant event__participant--away');

my %dict_res;

for my $ind ($results) {
    push @{$dict_res{'times'}}, @times[$ind];
    push @{$dict_res{'home_teams'}}, @home_teams[$ind];
    push @{$dict_res{'scores'}}, @scores[$ind];
    push @{$dict_res{'away_teams'}}, @away_teams[$ind];
	print %dict_res;
}