use vars qw(%FORM @log %freg);