while() { chomp; $app = $_; $path = `which $app 2>/dev/null`; $err = $?; print $app.": "; if($err != 0) { print "failed ($err)\n"; } else { print $path; } }