This functionality has been portably implemented by Per Einar Ellefsen.

See File::Which for the details.

Example code for Unix:

#!/usr/bin/perl

use strict;
use warnings;

use File::Which qw(which where);

my $path = which('perl');
my @paths = where('perl');
[download]