コマンドのパスを取得 (module)File-Which

File::Which を使う
http://search.cpan.org/~pereinar/File-Which-0.05/

use File::Which;
$ps = which("ps");

UNIX 上でしか使わないなら which OS コマンド使ったほうが早いかな…?