my $mem = GTop->new;
print "Total memory: ", $mem->total / 1024, "K\n";