my $mem1 = `perl -e 'print \`ps h -o sz \$\$\`'`;