gistfile1.txt

use Modern::Perl;
use Term::ANSIColor qw( :constants );
use IPC::Run3;
use Capture::Tiny qw( tee );

my @cmd = qw( node t/index.js  );

my ($stdout, $stderr) = tee {
        run3 \@cmd;
};

if ($stdout =~ m/\s-.+fail/) {
 print STDERR RED, "one or more tests failed!";
 die RESET, "\n";
}