Here's an alternative socket based approach.

#!/usr/bin/perl

use IO::Socket;

my $name = "5dayForecast.pl";

my $url = "www.nws.fsu.edu";

my $query = "/wx/data/text/extended/FEUS71.KLWX";

my $socket = IO::Socket::INET->new(PeerAddr => $url, 
                                   PeerPort => 80, 
                                   Proto    => "tcp", 
                                   Type     => SOCK_STREAM
                                   Timeout  => 10)
    or die "$name: Couldn't initialize socket: $@"; 

my $flags;

if ( !defined( $socket->send("GET $query\n", $flags) ) ) {
    close $socket;
    print "$name: Can't send: $!\n";
    exit;
}

my $i=0;
while (<$socket>) {
    print;
}

close $socket;

exit;