my $mem2 = `perl -e '\$a = {A=>1, B=>2, C=>3}; print \`ps h -o sz \$\$\`'`;