#!/usr/bin/perl
use HTML::TableExtract qw(tree);
my $table = "";
my $html = "" . $table x 3 . "";
foreach ( my $x = 0; $x <= 20; $x++) {
my $p = HTML::TableExtract->new();
$p->parse($html);
$p->eof;
$p->delete;
if (-f "/proc/$$/statm") {
my $mem = `cat /proc/$$/statm`;
$mem =~ s/^(\d+).*/$1/s;
print "$x: $mem\n";
}
}