use GTop ();

my $gtop = GTop->new;
my $m1 = $gtop->proc_mem($$)->size;
print $m1,"\n";

my $s1 = str1();
my $x1 = XML::LibXML->new();
my $p1 = $x1->parse_string($s1);

my $m2 = $gtop->proc_mem($$)->size;
print $m2,"\n";

my $s2 = str2();
my $x2 = XML::LibXML->new();
my $p2 = $x2->parse_string($s2);

my $m3 = $gtop->proc_mem($$)->size;
print $m3,"\n";