#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use Data::Dump;
use JSON::Parse 'parse_json';

my $ua = LWP::UserAgent->new( 'send_te' => '0' );
my $r  = HTTP::Request->new(
  'GET' => 'https://api.weather.gov/icons',
  [
    'Cache-Control' => 'max-age=0',
    'Connection'    => 'keep-alive',
    'Accept' =>
'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8',
    'Accept-Encoding' => 'gzip, x-gzip, deflate, x-bzip2, bzip2',
    'Accept-Language' => 'en-US,en;q=0.5',
    'Host'            => 'api.weather.gov:443',
    'User-Agent' =>
'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:74.0) Gecko/20100101 Firefox/74.0',
    'Upgrade-Insecure-Requests' => '1',
  ],

);

my $out;
my $res = $ua->request( $r, );
if ( $res->is_success ) {
  my $json = $res->decoded_content;
  $out = parse_json $json;
}
else {
  print "Error: " . $res->status_line . "\n";
}

dd $out;

my %xlated_abbrev;    #simple abbreviation table => description

foreach my $key ( keys %{ $out->{icons} } )    #gen simple xlate table
{
  $xlated_abbrev{$key} = $out->{icons}{$key}{description};
}

my @urls = (
  'https://api.weather.gov/icons/land/day/tsra_sct,20/tsra_sct,40?size=medium',
  'https://api.weather.gov/icons/land/day/rain_showers,30/tsra_hi,30?size=medium',
  'https://api.weather.gov/icons/land/night/rain_showers,30/rain_showers?size=medium',
  'https://api.weather.gov/icons/land/day/bkn?size=medium'
);

foreach my $url (@urls) {
  my $last_path = ( split( '/', $url ) )[-1];
  my ($abbrev_to_xlate) = $last_path =~ /^(\w+)/;

  print "URL = $url\n";
  print "   $abbrev_to_xlate => \'$xlated_abbrev{$abbrev_to_xlate}\'\n\n";
}

__END__

Created from curl command line
curl 'https://api.weather.gov/icons' -H 'User-Agent: Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:74.0) Gecko/20100101 Firefox/74.0' -H 'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8' -H 'Accept-Language: en-US,en;q=0.5' --compressed -H 'Connection: keep-alive' -H 'Upgrade-Insecure-Requests: 1' -H 'Cache-Control: max-age=0'