Perl里如何得到一个执行程序的返回值？

刚接触Perl，想写个Perl脚本，其中调用一个程序app，判断其返回值。
在shell里我是这样写的：
$app
$echo $?

现在在Perl脚本里该如何写？
我试过如下，但不行，请问问题在何处？
#!/usr/bin/perl
`app`;
$result=`echo \$?`;
print "result=$result\n";

本帖最后由 unicornx 于 2010-08-09 22:46 编辑

自己搞定
结贴。

my $temp = system "app";
$temp = $temp>>8;
print "\n result is ", $temp;

refer to http://bbs.chinaunix.net/viewthread.php?tid=1256390