use strict; use warnings; use Test::More; my $is_win = $^O =~ /MSWin/; my ($sep, $bin) = $is_win ? (';', 'perl.exe') : (':', 'perl'); my $perl_available = grep { -x "$_/$bin" } split /$sep/, $ENV{PATH}; ok $perl_available, "perl binary was found and is executable"; done_testing();