How about:

sub Which($) {
my $file = shift;
my $loc = `which $file`;
chomp $loc;
return $loc;
}
[download]

I didn't actually test to see if it was faster, but it seems to me it would be...
Course, it only works on a UNIX system.