which.pl

#!/usr/bin/env perl
use File::Spec;
my $pg = shift(@ARGV);
for my $path (split /:/, $ENV{PATH}) {
        if (-x File::Spec->catfile($path, $pg)) {
                print File::Spec->catfile($path, $pg), "\n";
                last;
        }
}