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

##</code><code>##

<blaaaargh failed: /tmp/blaaaargh: Permission denied
>

##</code><code>##

<blaaaargh failed: >

##</code><code>##

[Wed Nov 05 16:07:39 2008] [error] [client 127.0.0.1] /tmp/blaaaargh: Permission denied