which command for windows

which.pl

#! /usr/bin/perl

foreach my $arg (@ARGV) {
    #print $arg, "\n";
    my $found = 0;
    foreach my $dir (split(/\;/, $ENV{"PATH"})) {
	foreach my $ext ('', split(/\;/, $ENV{"PATHEXT"})) {
	    $fqpath = $dir . "\\" . $arg . $ext;
	    #print $fqpath, "\n";
	    if (-f $fqpath) {
		print $fqpath, "\n";
		$found++;
		last;
	    }
	}
	last if $found;
    }
    if (! $found) {
	print $arg " not found in ", $ENV{"PATH"}, "\n";
    }
}