use Test::More; use FindBin qw( $RealBin ); my $out = qx{ /bin/env perl -cw $RealBin/../bin/script.pl }; like( $out, qr{script.pl syntax OK}, "Syntax OK" );