use IO::CaptureOutput qw(qxy);
($output) = qxy(qw(/usr/local/bin/blaaaargh));
say "<blaaaargh failed: $output>";