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