#!/usr/bin/perl 

use strict;
use warnings;
use Mojo::UserAgent;
use Mojo::Util qw(dumper trim);
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

print "Content-type: text/html\n\n";

my $cgi = CGI->new;
my $url = 'https://int.soccerway.com/matches/2020/12/28/';
my $ua = Mojo::UserAgent->new;

my @results = $ua
    ->get( $url )
    ->result
    ->dom
    ->find( 'table.matches_new tr.match' )
    ->map( sub {
        my $row = $_;
        my @results =
            map { trim( $row->at( $_ )->all_text ) }
            qw( td.minute td.team-a td.score-time td.team-b );
        return \@results;
        } )
    ->to_array;

print dumper( @results );