Как я могу сохранить результат системной команды в переменной Perl?

$ cat test.pl
my $pid = 5892;
my $not = system("top -H -p $pid -n 1 | grep myprocess | wc -l");
print "not = $not\n";
$ perl test.pl
11
not = 0
$

Я хочу записать результат, например 11 , в переменную. Как я могу это сделать?