diff --git a/samples/fakelogin.perl b/samples/fakelogin.perl
index 4f511d6f0..94e63f12f 100644
--- a/samples/fakelogin.perl
+++ b/samples/fakelogin.perl
@@ -7,7 +7,7 @@
 # a good exercise for wheel event renaming.
 
 use strict;
-use IO::Socket::INET;
+use IO::Socket;
 
 use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Line);
 
diff --git a/samples/selects.perl b/samples/selects.perl
index e14e2c09e..101b3c0a5 100644
--- a/samples/selects.perl
+++ b/samples/selects.perl
@@ -14,8 +14,8 @@
 # connected to by other clients, such as netcat or telnet.
 
 # This is a pre-wheel sockets test.  It's one of the few that uses
-# IO::Socket::INET.  All the others (with exception of wheels.perl)
-# have been adapted to use POE::Wheel::SocketFactory.
+# IO::Socket.  All the others (with exception of wheels.perl) have
+# been adapted to use POE::Wheel::SocketFactory.
 
 # If some aspects of using sessions are confusing, please see the
 # *session*.perl tests.  They are commented in more detail.
@@ -23,7 +23,7 @@
 use strict;
 
 use POE;
-use IO::Socket::INET;
+use IO::Socket;
 use POSIX qw(EAGAIN);
                                         # the chargen server's listen port
 my $chargen_port = 30019;
diff --git a/samples/thrash.perl b/samples/thrash.perl
index c108e152b..c5aefaa9c 100644
--- a/samples/thrash.perl
+++ b/samples/thrash.perl
@@ -175,12 +175,11 @@ sub pool_start {
   $heap->{'bench count'} = 0;
 
   # Start five clients.  NOTE: This would not work if clients used
-  # IO::Socket::INET to connect to the server, because
-  # IO::Socket::INET's connect blocks.  It would wait for the server
-  # to accept a connectino before continuing, which would never happen
-  # since this loop is holding up the event queue.  The program can
-  # only get away with this loop because SocketFactory connections do
-  # not block.
+  # IO::Socket to connect to the server, because IO::Socket's connect
+  # blocks.  It would wait for the server to accept a connectino
+  # before continuing, which would never happen since this loop is
+  # holding up the event queue.  The program can only get away with
+  # this loop because SocketFactory connections do not block.
 
   for (my $i = 0; $i < 5; $i++) {
     &client_create(++$heap->{'client serial'});
diff --git a/samples/wheels.perl b/samples/wheels.perl
index 94d42fa42..925a20851 100644
--- a/samples/wheels.perl
+++ b/samples/wheels.perl
@@ -14,12 +14,12 @@
 
 # Wheels, Drivers and Filters were still new at this point.
 # POE::Wheel::SocketFactory had not been conceived at this point, so
-# this program still relies on IO::Socket::INET.
+# this program still relies on IO::Socket.
 
 use strict;
 
 use POE qw(Wheel::ListenAccept Wheel::ReadWrite Driver::SysRW Filter::Line);
-use IO::Socket::INET;
+use IO::Socket;
 
 my $rot13_port = 32000;