my $mode : shared;

##</code><code>##

$mybase::mode = 1;