使用perl执行cmd命令的有关问题

求助使用perl执行cmd命令的问题！
最近学写perl脚本，想请教下如下问题：

如：我pl文件中有 system（“aaa”），当执行时如果成功会出现“ok！success” 失则会出现“sorry！failed”我现在要判断显示出的内容是 success 还是 failed
那我写怎么写？？？

[解决办法]
两种方法：
1、把aaa的输出重定向到文件中，读取文件内容进行判断
2、使用
$ret = `aaa`
来调用命令，标准输出结果会保存到$ret中
如果aaa的输出是在标准错误，那只能用方法1
[解决办法]
system返回的是命令的返回值，如果aaa返回值不能够判断错误，就无法做到。
通过标准输出可以实现，通过反小点“`”运行命令，可以将命令的输出保存在变量中，如1楼所示。

Perl code

$str=`aaa`;if($str eq "ok！success"){   print("OK!!!!\n");}else{   print("Not OK!!!!\n");}