Вопрос По Perl !

очень кривое 5 секундное решение.
можешь результат `ps -ax` отфильтерить и в перле 

#!/usr/bin/perl -w

my $com = "ps -ax | grep ".$ARGV[0]." | grep -v \"grep\"";
my @out =`$com`;
# we need ! /^$$/ only to filter ourselves eg './perl proctofind'
(@out && !($out[0]=~/^$$/) && print "exists\n") || print "not found..\n";