use vars qw/$opt_h $opt_f $opt_d/;