root/docs/yappo/20080515-yapcasia2008/run-perl510.pl

use strict;
use warnings;
use Data::Dumper;

use with_hintbits;
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }
no with_hintbits;
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }

use with_hintbits 'larry';
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }
if (1) {
    use with_hintbits 'ingy';
    warn "run: " . Dumper(%^H);
    BEGIN { warn Dumper(%^H) }
}
warn "run: " . Dumper(%^H);
BEGIN { warn Dumper(%^H) }