关于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操作,这样就可以通知到多数人。