use strict; use vars qw/$var1 $var2/;