use strict;
use warnings;


{
    local $SIG{__WARN__} = sub {
        my @warnings = @_;
        foreach my $warning (@warnings) {
            warn "in handleEncoding, got a warning: $warning\n";
        }
    };
    warn "blee";
    warn "blah";
    warn "bloo";
}