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