use Devel::Peek;
use ExtUtils::testlib;
use Flag;
my $c = 15;
Flag::sv_set_flag($c, 'READONLY');

print Dump $c;
print "$c";
print Dump $c;