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