#!/usr/bin/perl


use strict;
use warnings;
 
use LWP::UserAgent ();

print "Content-type: text/html\n\n";
 
my $ua = LWP::UserAgent->new(timeout => 10);
$ua->env_proxy;
 
my $response = $ua->get('https://tgftp.nws.noaa.gov/data/observations/metar/stations/UUEE.TXT');
 
if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line;
}