my $url = "http://www.mesonet.org/index.php/weather/daily_data_retrieval";

my $ie =Win32::IE::Mechanize->new( visible=> 1 );

my @variables = ('TAVG','DAVG','PAVG','HMAX','HMIN','HAVG','WSPD','ATOT');

$ie->get($url);
sleep 1;

$ie->form_name("request");

$ie->set_fields(beginmonth=>'05'); 
$ie->set_fields(beginday=>'15');
$ie->set_fields(beginyear=>'2010');
$ie->set_fields(endmonth=>'07');
$ie->set_fields(endday=>'06');
$ie->set_fields(endyear=>'2010');

$ie->select( 'parms', \@variables);

$ie->set_fields(stid=> $station);

$ie->click("SUBMIT");

my $html = $ie->content;

print $html; 

$ie->close;