sub BEGIN {
    my $level = $ENV{'FOO_DEBUG'} || 0;
    eval "*Foo::DEBUG = sub () {$1}" if $level =~ /^(\d+)$/s;
}
'???';