my( $ok, $failure ) = ( 0, 0 );
...
system( "myscript.pl", $par1 ) );
$? ? $failure++ : $ok++;
system( "myscript.pl", $par2 );
$? ? $failure++ : $ok++;
...