#!/usr/bin/perl
use strict;
use warnings;

package Foo;

sub new {
    my $self = bless { }, shift;
    for (1..2_000_000) {
        $self->{x} .= "x" x 1000;
    }
    return $self;
}

package Bar;

sub new {
    my $self = bless { }, shift;
    for (1..2_000_000) {
        $self->{$_} = "x" x 1000;
    }
    return $self;
}

package main;

print "### Test Foo\n";
my $foo = Foo->new;

print "Object created\n";
print "Size: ", qx{ps -p $$ -o rss=};

$foo = undef;
sleep 3;

print "Object destroyed\n";
print "Size: ", qx{ps -p $$ -o rss=};

print "### Test Bar\n";
my $bar = Bar->new;

print "Object created\n";
print "Size: ", qx{ps -p $$ -o rss=};

$bar = undef;
sleep 3;

print "Object destroyed\n";
print "Size: ", qx{ps -p $$ -o rss=};