use vars qw($VERSION @dbline %dbline);