BEGIN { my $x = "a" x 3; *::FOOBAR = sub () { $x } }