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

print_size('empty');
foreach my $module (
    'Data::Dumper',
    'Scalar::Util',
    'Getopt::Long',
    'Net::XMPP',
    'JSON::XS',
    'LWP::UserAgent',
    'POE qw(Component::Server::TCP)',
    'Moose',
    ) {
    eval "use $module";
    die $@ if $@;
    print_size("after $module");
}


sub print_size {
    my ($msg) = @_;
    my @lines = qx{/bin/ps -e -o pid,ppid,vsize,rss,command | grep ^$$};
    chomp @lines;
    foreach my $line (@lines) {
        my ($pid, $ppid, $vsize, $rss) = split /\s+/, $line;
        print "VM: $vsize   RSS: $rss   - $msg\n";
    }
    return;
}