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