use vars qw($opt_h $opt_d $opt_t);