请教：在Perl里，如何获得被调用的Kshell脚本的返回值

例如：
#!/bin/perl
...
$rc1=system($rc2="date");
...
就是想获得 $rc 的值。

很怪的语法.....你到底想要取得什麽内容..
如果用perl写..请叁考
perldoc -f time
perldoc -f localtime
谢谢...

就是想知道，date的返回值。
例如：
bldc:home/yufeiwan/temp >> cat r3
#!/opt/nmake/3.9/bin/ksh
print "let me think !"
exit 4

bldc:home/yufeiwan/temp >> cat p2
#!/bin/perl
# $rc1=`./rc3`;
system("./rc3");
$rc1=$?;
print "rc1 = ";
print $rc1;
print "\n";
if ($rc1 == 4) {
        print "shell success \n";
} else {
        print "shell failure \n";
}

bldc:home/yufeiwan/temp >> p2
rc1 = 65280
shell failure

但返回值好像是system返回值 左移8位

my @ary = `date`;

建议用time,localtime替换.....