How can I get return value when using awk in perl script? <p>I am trying submit to $process the result of this <strong>system call</strong> </p> <pre><code>my $process= system "adb shell ps | egrep adb | awk '{print $1}' "; </code></pre> <p>but when <code>print " $process \n";</code> I have got zero</p> <p>Any suggestions</p>