diff -up Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm
--- Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm.orig	2017-06-30 12:16:21.706412573 +0200
+++ Mail-Box-POP3-3.001/lib/Mail/Transport/POP3.pm	2017-06-30 15:25:51.762535024 +0200
@@ -257,7 +257,7 @@ sub login(;$)
         return;
     }
 
-    my $net    = $self->useSSL ? 'IO::Socket::SSL' : 'IO::Socket::INET';
+    my $net    = $self->useSSL ? 'IO::Socket::SSL' : 'IO::Socket::IP';
     eval "require $net" or die $@;
 
     my $socket = eval { $net->new("$host:$port") };
diff -up Mail-Box-POP3-3.001/t/server.orig Mail-Box-POP3-3.001/t/server
--- Mail-Box-POP3-3.001/t/server.orig	2017-06-30 12:17:40.145945703 +0200
+++ Mail-Box-POP3-3.001/t/server	2017-06-30 12:21:19.785638413 +0200
@@ -142,7 +142,7 @@ so a statistics list for one successful
 # Make sure we can do digests
 
 use strict;
-use IO::Socket;
+use IO::Socket::IP;
 use Digest::MD5 qw(md5_hex);
 
 # Obtain the directory to work on
@@ -181,7 +181,7 @@ while (my $keyword = shift) {
 # Create a server that can only take one connection at a time
 
 $| = 1;
-my $server = IO::Socket::INET->new(
+my $server = IO::Socket::IP->new(
   Type      => SOCK_STREAM,
   Listen    => 1,
   @port,