my $var;
BEGIN {
   $var = ...;
}