Perl 5 now *does* allow packages with block scoping