#!/usr/bin/perl
# $Id: which.pl,v 1.2 2004/03/21 08:05:06 ctrondlp Exp $
# Similar to UNIX which command.
#
# On my NT box:
#
# D:\src\perl\win32-guitest>eg\which.pl perl
# D:\perl\bin\perl.EXE
# D:\src\perl\win32-guitest>eg\which.pl regedit
# C:\WINNT\regedit.EXE
# D:\src\perl\win32-guitest>eg\which.pl notepad
# C:\WINNT\system32\notepad.EXE
# D:\src\perl\win32-guitest>
#
use strict;
use Win32::GuiTest::Cmd qw(WhichExe);
print WhichExe(shift);