检测ftp是否成功

刚才写了一大段的文字竟然提交时说我没权限，内容全丢了，郁闷
现在只贴出关键代码供自己以后参考吧
 

1. $FTP_SUCCESS_CODE=226;#File transfer complete.
2. $ftp = "  
3. ftp -i -n ${FTP_SERVER} <
4. user ${UID} ${PWD}  
5. verbose  
6. cd $FTP_LOCATION  
7. bin  
8. lcd ${local_dir}  
9. put ${upload_file}  
10. !  
11. ";   
12. @rest = `$ftp`;   
13. if (grep($_ =~ m/^$FTP_SUCCESS_CODE /, @ret)) {   
14.     print "success";   
15. } else {   
16.     print "failed" ; 
17. }