use v5.12;
use warnings;
use Devel::Size qw(total_size);

my $x = 'a';
$x x= 2**30;  # 1GiB
print total_size($x) . "\n";
sleep 60;