more compact form

t/tools/win32.t

@@ -6,6 +6,8 @@ use warnings;
 use English qw(-no_match_vars);
 use Test::More;
 
+use FusionInventory::Agent::Tools;
+
 BEGIN {
     # use mock modules for non-available ones
     push @INC, 't/fake/windows' if $OSNAME ne 'MSWin32';
@@ -20,11 +22,9 @@ if ($OSNAME ne 'MSWin32') {
 }
 my ($code, $fd) = runCommand(command => "perl -V");
 ok($code eq 0, "perl -V returns 0");
-my $seemOk;
-foreach (<$fd>) {
-    $seemOk=1 if /Summary of my perl5/;
-}
-ok($seemOk eq 1, "perl -V output looks good");
+
+ok(any { /Summary of my perl5/ } <$fd>, "perl -V output looks good");
+
 ($code, $fd) = runCommand(
     timeout => 1,
     command => "perl -e\"sleep 10\""