#!/usr/bin/perl

use strict;
use warnings;

my @date;

open(IN, "<c:/perl/scripts/dates/dates.txt");
while (<IN>) {
	push (@date, $_);
	}
close(IN);

use WWW::Mechanize;
foreach my $date (@date) {
	my $mech = WWW::Mechanize->new();
		$mech->get( "http://bub2.meteo.psu.edu/wxstn/wxstn.htm" );
		$mech->form_number(1);
		$mech->field( 'dtg' , $date );
		$mech->click();
		$mech->content();
	my $file = "c:/perl/scripts/dates/$date.txt";
		$mech->save_content($file);
		$mech->back();
	}