一个perl b脚本调用另一个perl a脚本，怎么在b脚本中获取a脚本的返回值

一个perl b脚本调用另一个perl a脚本，如何在b脚本中获取a脚本的返回值
#a.pl
#!/usr/bin/perl -w
print "call perl script\n";
exit(2);

＃b.pl
#!/usr/bin/perl -w
print "b perl script\n";
my $ret=`perl a.pl`;
print "a.pl return value:$ret\n";

我想要的值为2。
非常感谢

------解决方案--------------------
my $ret=`perl a.pl`;
这样写的话，只会返回该命令的返回值，就相当于system("perl a.pl")一样;
要得到#a.pl 的返回值，你应该将$ret右移8位试一下，这样就可以了。

代码：
$ret=system("perl a.pl");
$ret=$ret/256;