unless(defined($host)) {
        local $SIG{__DIE__};
        my @hosts = qw(mailhost localhost);
        unshift(@hosts, split(/:/, $ENV{SMTPHOSTS})) if(defined $ENV{SMTPHOSTS});
        
        foreach $host (@hosts) {
            $smtp = eval { Net::SMTP->new($host, @hello) };
            last if(defined $smtp);
        }
    }