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