perl -e 'use strict; our $c; BEGIN{ $c=1 } print $c'

##</code><code>##

perl -e 'use strict; BEGIN{ our $c=1 } our $c; print $c'

##</code><code>##

perl -e 'use strict; BEGIN{ our $c=1 } print our $c'