#!/usr/bin/perl

use strict;
use warnings;

use feature 'say';
use Mojo::UserAgent;

my $url = 'https://weather.com/weather/today/l/20001:4:US';
my $selector = 'div.today_nowcard-sidecar.component.panel table tr td span';
my $ua = Mojo::UserAgent->new;

say $ua->get( $url )->res->dom->at( $selector )->all_text;