my $pid = `ps ax | awk '/programname/ && !/awk/ {print \$1}`; # ;-)