if ($? == -1) { print "failed to execute: $!\n" }
elsif ($? & 127)
	{ printf "child died with signal %d, %s coredump\n",
		($? & 127),  ($? & 128) ? 'with' : 'without' }
else { printf "child exited with value %d\n", $? >> 8 }

##</code><code>##

use IPC::System::Simple qw/capturex/;
my @flush = capturex('/soft/perl-5.16.3/bin/perl',
	'/users/iax00/exploit/script/iax_0taskchklog.pl',
	'-m','--timeout=10','--success-code=0',
	'--script=/users/iax00/exploit/script/iax_0tasksimp.pl',
	'--script-prefix='.$ENV{UNXEXSCRIPT}.'/start /soft/perl-5.16.3/bin/perl',
	'--script-params=-m -v 2 --config-file /users/iax00/exploit/data/iaxfcverifTomcat_admin_portal.xml');