use vars qw/ %OPT $DBH /;