------------------------------------------------------------
#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my $index = shift;

#
## assuring that the site still exists
#

my $base = "http://vortex.plymouth.edu/cgi-bin/gen_uacalplt-u.html";
die "Cloudn't get it!" unless define $content;
print "Found:\n$content\n";

#
## fetching radiosonde data from web
#

my @hr = (00, 12)

foreach my $hr (@hr) {
my ($url) = $content =~ m{
	http://vortex\.plymouth\.edu/cgi-bin/gen_uacalplt-u\.cgi?id=${index}&pl=none&yy=05&mm=08&dd=24&hh=${hr}&pt=parcel&size=640x480
	}smx;
push (@urls, $url) if (defined ($url));
}

print "URLs found: @urls\n";

 
------------------------------------------------------------