#! /usr/bin/perl
# whatperl.pl - show that some code is b0rken.

# $self, $ver, $names, $dirs, $trace

my $PLACES_TO_SEARCH = [ qw' C:\Perl\bin C: C:/Perl/bin ' ];

use ExtUtils::MakeMaker;
use ExtUtils::MM_Win32;


my $self   = ExtUtils::MakeMaker->new();

my $result = ExtUtils::MM_Win32::find_perl( $self, 5,
             [qw'perl.exe perl.EXE PERL.EXE'],
             $PLACES_TO_SEARCH , 3 );
if ($result and length $result)
{
    print "$result\n";
}
exit;