#!/usr/bin/perl

print"STATUS:$?\n";

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

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