use vars qw( $var );