my $var1;
my $var2;
BEGIN {
   $var1 = ...;
   $var2 = ...;
}