perl 脚本里调用shell 以及获取返回值

perl 脚本里调用shell 以及获取返回值，如下：

 

#!/usr/bin/perl

 

$output = qx(/home/irdetogame/lucy/CMGC/processAPK.sh);

 

$exitcode = $? >>8;

 

print "output = " . $output;

 

print "exitcode = " . $exitcode;