use strict; use Shell; my $sh = Shell->new; $Shell::raw='TRUE'; print $sh->ps("aux | grep firefox | awk \'\{print \$2\}\'");