1 use 5.010;

     2 use strict;

     3 use warnings;

     4 use Test::More;

     5 use File::Find;

     6 use File::Temp;

     7 

     8 my @files;

     9 find(sub {

    10 	-f -x or return;

    11 	push @files => $File::Find::name;

    12 }, "bin");

    13 

    14 plan tests => scalar @files;

    15 

    16 my $tmp = File::Temp->new;

    17 

    18 foreach (@files) {

    19 	system("perl -c $_ 2>$tmp");

    20 	seek($tmp, 0, 0);

    21 	is($? => 0, "syntax $_ OK") or diag join "" => <$tmp>;

    22 }