use vars qw($Bar);
$Bar=42;