use strict;

my $all;
use warnings 'all';
BEGIN {   $all = unpack( 'b*', ${^WARNING_BITS} ); }
print "ALL : $all\n";

my $none;
no warnings 'all';
BEGIN {   $none = unpack( 'b*', ${^WARNING_BITS} ); }
print "NONE: $none\n";

my $void;
use warnings 'void';
BEGIN {   $void = unpack( 'b*', ${^WARNING_BITS} ); }
print "VOID: $void\n";