C:\Documents and Settings\BioGeek\Perl\bin\perl.exe <some arguments>

##</code><code>##

"C:\Documents and Settings\BioGeek\Perl\bin\perl.exe" <some arguments>

##</code><code>##

sub perl {
    my($self) = @_;
    my($perl) = File::Spec->file_name_is_absolute($^X) ? $^X : "";
    #### JJ Comment - on my machine $^X is "C:\program files\perl\bin\perl.exe
    #### could change this to
    #### my($perl) = File::Spec->file_name_is_absolute($^X) ? "\"$^X\"" : "";

    my $pwd  = CPAN::anycwd();
    my $candidate = File::Spec->catfile($pwd,$^X);
    $perl ||= $candidate if MM->maybe_command($candidate);