#!/usr/bin/perl

print"STATUS:$?\n";

$result=`./xxx.pl`;
$status=$?;

print "RES:$result\nSTA:$status\n";

##</code><code>##

#!/usr/bin/perl

print"Wonderful world on Friday\n";
exit 200;

##</code><code>##

STATUS:0
RES:Wonderful world on Friday

STA:25600

##</code><code>##


-----------------------------------
--the good, the bad and the physi--
-----------------------------------