use strict; use vars::i qw' $c 1';