#!/usr/bin/perl -s

use strict;
use warnings;
use Net::HTTP;

my $s = Net::HTTP->new(Host => "www.swpc.noaa.gov") || die $@;
$s->write_request(GET => "/ftpdir/latest/wwv.txt");
$s->read_response_headers;
my $response;
while(1) {
	my $buf;
	my $n = $s->read_entity_body($buf, 1024);
	die "Socket read failed: $!" unless defined $n;
	last unless $n;
	$response .= $buf;
}

foreach(split('\n', $response)) {
	print "$_\n" unless $_ =~ /^#/ or /^:Product/
}