use vars qw( $level );