use strict;

my $class = $ENV{DATETIME_CLASS} || 'DateTimeX::Lite';

my $before = get_memory();
print "memory usage before using $class: $before\n";

eval "require $class";

for(1..100) {
    $class->new(year => 2000, month => 1, day => 1);
}

my $after = get_memory();
print "memory usage after using $class: $after\n";
print "  memory used = ", $after - $before, "\n";

sub get_memory {
    my $output = `ps -opid,rss`;

    foreach (split /\n/, $output) {
        next unless /^\s(\d+)\s+(\d+)/;
        next unless $1 eq $$;

        return $2;
    }
}