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