use Proc::ProcessTable;
print "My memory=", memory_usage(), "\n";

sub memory_usage {
  my $t = new Proc::ProcessTable;
  foreach my $got ( @{$t->table} ) {
    next if not $got->pid eq $$;
    return $got->size;
  }
}