my $foo;
BEGIN { $foo = 'bar'; }