#!/usr/bin/perl

use strict;
use warnings;

use Devel::Size 'total_size';
use Devel::Peek;

my $a = \"$$";
my $b = \"";
my $c = \do {my $foo};
my $d = \eval{undef};

print total_size($a), "\n";
print total_size($b), "\n";
print total_size($c), "\n";
print total_size($d), "\n";

print "-----\n";

print Dump($a);
print Dump($c);
print Dump($d);