use vars qw( $foo );
$foo = 1;

##</code><code>##

our $foo = 1;