use Devel::Size qw(total_size);
$x = 'a' x (2**32);  # 4GiB
print total_size($x) . "\n";
sleep 60;