use vars qw($dbh);