BEGIN { package DEBUG; no strict 'vars'; *main::var = \$var };