use Devel::Size qw[ total_size ];

my $scalar;
$scalar = \$scalar;

print total_size( $scalar );