use strict;
use warnings;

##</code><code>##

open(FILE,'run_tool -f "test.tcl" 2>&1; echo Status code: $?|');

##</code><code>##

exit 1 if ($_ =~ /^Status code: [^0]/)