if(  $! == ECONNREFUSED()  ) {
    ...connection was refused...
} elsif(  $! == ETIMEDOUT()  ) {
    ...connection timed out...
} else {
    ...some other error...
}

##</code><code>##

BEGIN {
    if(  $^O =~ /Win32/i  ) {
        eval '
            sub() ECONNREFUSED { 10061; }
            sub() ETIMEDOUT { 10060; }
            1;'
          or  die $@;
    }
}