my $x;
BEGIN {
  $x = 1234;
}
warn $x;