$ perl -MDevel::Size=total_size -E'$x = 1.2; say total_size($x);'
24