连接失败：IO：：套接字：：INET：连接：在/usr/share/perl 5/Net/SMTP/ www.example.com第TLS.pm109行超时。这是我在109行的代码

sub new {
    my $pkg = shift;
    my $host= shift;
    my %args= @_;
    $args{Host} = $host;
    $args{Hello}= "localhost" if not $args{Hello};
    # make the non-SSL socket that will later be
    # transformed
    $args{sock} = new IO::Socket::INET(
        PeerAddr    =>  $host,
        PeerPort    =>  $args{Port} || 25,
        Proto       =>  'tcp',
        Timeout     =>  $args{Timeout} || 5)
            or croak "Connect failed :$@\n";