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

print_size('empty');
use Net::XMPP;
print_size("after Net::XMPP");
for (1..10) {
    my $conn   = Net::XMPP::Client->new;
    print_size('Net::XMPP::Client created');
    my $status = $conn->Connect(
        hostname       => 'talk.google.com',
        port           => 5222,
        componentname  => 'gmail.com',
        connectiontype => 'tcpip',
        tls            => 1,
    );
    print_size('connection started');
    $conn = undef;
}



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;
}