use strict;
use warnings;

open(my $in, '<', "c:/perl/scripts/dates/dates.txt")
    or die "open: $!\n";

my @date;
while (<$in>) {
    chomp;
    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();
	}