#!/usr/bin/env perl

use strict;
use warnings;

use 5.022;

# WARNING! Will consume about 3GB of RAM
$| = 1;

my $size = 1024 * 1024 * 1000;
my $s    = 'C' x $size;

# eval << 'EOD';

$s =~ s/C/1/; # copy of CCCCC... will stay in memory
$s =~ s/C/2/; # same but 1CCCC...

# EOD

print "Time to measure memory usage...\n";

sleep(9000);