perl -wle "use strict;use Devel::Size qw(total_size);my$t=sub{my$x='';};print total_size($t);"

##</code><code>##

Free to wrong pool 286ee8 not 286f30.