use strict;
use XML::XPath;

my $date = "2-2004";
my @values =  findmax($date);
print join(",",@values),"\n";

sub findmax{
	my $date = shift;
	my $xp = XML::XPath->new(filename => 'test.xml');
	my $max = $xp->findvalue("/AnnualWeatherRecord/MonthlyWeatherRecord[./date=\"$date\"]/temperature/maxdrybulb/\@number");
	return ($date,$max);
}
__END__
2-2004, 50.25