关于Net::FTP

    通常我们写FTP的时候使用以下方法

      
$ftp
 
=
 Net
::
FTP
->
new(
"
some.host.name
"
,
 Debug 
=>
 
0
)
      or 
die
 
"
Cannot connect to some.host.name: $@
"
;

    但是现在上头要求我在FTP失败时发邮件，or die是一种不负责任的方式，

    所以需要捕获ftp异常，上句可以改为

      
$ftp
 
=
 Net
::
FTP
->
new(
"
some.host.name
"
,
 Debug 
=>
 
0
)
      if
 ($@)

      {

              print("Cannot connect to some.host.name: $@
");

              exit 1;

      } 

       这里的print也可以改为sendmail操作,这样就可以通知到多数人。