#!/usr/bin/perl
use vars qw($dsn $username $password $dbh $query);
-use vars qw($my_mon, $my_year);
+use vars qw($my_mon $my_year);
use vars qw($title);
-use vars qw($min_time $max_time $min_mon $max_mon $min_year, $max_year );
+use vars qw($min_time $max_time $min_mon $max_mon $min_year $max_year );
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;