package Foo;
my $var = 20;

##</code><code>##

print $Foo::var;