diff --git a/Makefile.PL b/Makefile.PL
index 85d5712..09c7e86 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,7 +14,6 @@ WriteMakefile(
     PREREQ_PM => {
 	'Sys::Hostname' => 0,
 	'IO::Socket' => 0,
-	'IO::Socket::IP' => 0,
 	'HTTP::Request' => 6,
 	'HTTP::Response' => 6,
 	'HTTP::Status' => 6,
diff --git a/README b/README
index ddb3b6e..be5a20a 100644
--- a/README
+++ b/README
@@ -24,12 +24,12 @@ SYNOPSIS
 DESCRIPTION
     Instances of the `HTTP::Daemon' class are HTTP/1.1 servers that listen
     on a socket for incoming requests. The `HTTP::Daemon' is a subclass of
-    `IO::Socket::IP', so you can perform socket operations directly on it
+    `IO::Socket::INET', so you can perform socket operations directly on it
     too.
 
     The accept() method will return when a connection from a client is
     available. The returned value will be an `HTTP::Daemon::ClientConn'
-    object which is another `IO::Socket::IP' subclass. Calling the
+    object which is another `IO::Socket::INET' subclass. Calling the
     get_request() method on this object will read data from the client and
     return an `HTTP::Request' object. The ClientConn object also provide
     methods to send back various responses.
@@ -40,13 +40,13 @@ DESCRIPTION
     responses that conform to the HTTP/1.1 protocol.
 
     The following methods of `HTTP::Daemon' are new (or enhanced) relative
-    to the `IO::Socket::IP' base class:
+    to the `IO::Socket::INET' base class:
 
     $d = HTTP::Daemon->new
     $d = HTTP::Daemon->new( %opts )
         The constructor method takes the same arguments as the
-        `IO::Socket::IP' constructor, but unlike its base class it can also
-        be called without any arguments. The daemon will then set up a
+        `IO::Socket::INET' constructor, but unlike its base class it can
+        also be called without any arguments. The daemon will then set up a
         listen queue of 5 connections and allocate some random port number.
 
         A server that wants to bind to some specific address on the standard
@@ -57,8 +57,8 @@ DESCRIPTION
                    LocalPort => 80,
                );
 
-        See IO::Socket::IP for a description of other arguments that can be
-        used configure the daemon during construction.
+        See IO::Socket::INET for a description of other arguments that can
+        be used configure the daemon during construction.
 
     $c = $d->accept
     $c = $d->accept( $pkg )
@@ -71,7 +71,7 @@ DESCRIPTION
 
         The accept method will return `undef' if timeouts have been enabled
         and no connection is made within the given time. The timeout()
-        method is described in IO::Socket::IP.
+        method is described in IO::Socket.
 
         In list context both the client object and the peer address will be
         returned; see the description of the accept method IO::Socket for
@@ -89,9 +89,9 @@ DESCRIPTION
         The default is the string "libwww-perl-daemon/#.##" where "#.##" is
         replaced with the version number of this module.
 
-    The `HTTP::Daemon::ClientConn' is a `IO::Socket::IP' subclass. Instances
-    of this class are returned by the accept() method of `HTTP::Daemon'. The
-    following methods are provided:
+    The `HTTP::Daemon::ClientConn' is a `IO::Socket::INET' subclass.
+    Instances of this class are returned by the accept() method of
+    `HTTP::Daemon'. The following methods are provided:
 
     $c->get_request
     $c->get_request( $headers_only )
@@ -227,7 +227,7 @@ DESCRIPTION
 SEE ALSO
     RFC 2616
 
-    IO::Socket::IP, IO::Socket
+    IO::Socket::INET, IO::Socket
 
 COPYRIGHT
     Copyright 1996-2003, Gisle Aas
diff --git a/lib/HTTP/Daemon.pm b/lib/HTTP/Daemon.pm
index 216c73f..27a7bf4 100644
--- a/lib/HTTP/Daemon.pm
+++ b/lib/HTTP/Daemon.pm
@@ -5,10 +5,8 @@ use vars qw($VERSION @ISA $PROTO $DEBUG);
 
 $VERSION = "6.01";
 
-use Socket qw(AF_INET AF_INET6 INADDR_ANY IN6ADDR_ANY
-	    INADDR_LOOPBACK IN6ADDR_LOOPBACK inet_ntop sockaddr_family);
-use IO::Socket::IP;
-@ISA=qw(IO::Socket::IP);
+use IO::Socket qw(AF_INET INADDR_ANY INADDR_LOOPBACK inet_ntoa);
+@ISA=qw(IO::Socket::INET);
 
 $PROTO = "HTTP/1.1";
 
@@ -18,14 +16,6 @@ sub new
     my($class, %args) = @_;
     $args{Listen} ||= 5;
     $args{Proto}  ||= 'tcp';
-    # Handle undefined or empty local address the same way as
-    # IO::Socket::INET -- use unspecified address
-    for my $key (qw(LocalAddr LocalHost)) {
-        if (exists $args{$key} &&
-            (!defined($args{$key}) || $args{$key} eq '')) {
-            delete $args{$key};
-        }
-    }
     return $class->SUPER::new(%args);
 }
 
@@ -50,37 +40,15 @@ sub url
     my $self = shift;
     my $url = $self->_default_scheme . "://";
     my $addr = $self->sockaddr;
-    if (!$addr || $addr eq INADDR_ANY || $addr eq IN6ADDR_ANY) {
+    if (!$addr || $addr eq INADDR_ANY) {
  	require Sys::Hostname;
  	$url .= lc Sys::Hostname::hostname();
     }
     elsif ($addr eq INADDR_LOOPBACK) {
-	$url .= inet_ntop(AF_INET, $addr);
-    }
-    elsif ($addr eq IN6ADDR_LOOPBACK) {
-	$url .= '[' . inet_ntop(AF_INET6, $addr) . ']';
+	$url .= inet_ntoa($addr);
     }
     else {
-	my $host = $self->sockhostname;
-	# sockhostname() seems to return a stringified IP address if not
-	# resolvable, then quote it for a port separator and an IPv6 zone separator.
-	# But be paranoid for a case when it already contains a bracket.
-	if (defined $host and $host =~ /:/) {
-	    if ($host =~ /[\[\]]/) {
-		$host = undef;
-	    } else {
-		$host =~ s/%/%25/g;
-		$host  = '[' . $host . ']';
-	    }
-	}
-        if (!defined $host) {
-	    if (sockaddr_family($addr) eq AF_INET6) {
-		$host = '[' . inet_ntop(AF_INET6, $addr) . ']';
-	    } else {
-		$host = inet_ntop(AF_INET, $addr);
-	    }
-	}
-	$url .= $host;
+	$url .= gethostbyaddr($addr, AF_INET) || inet_ntoa($addr);
     }
     my $port = $self->sockport;
     $url .= ":$port" if $port != $self->_default_port;
@@ -109,8 +77,8 @@ sub product_tokens
 package HTTP::Daemon::ClientConn;
 
 use vars qw(@ISA $DEBUG);
-use IO::Socket::IP ();
-@ISA=qw(IO::Socket::IP);
+use IO::Socket ();
+@ISA=qw(IO::Socket::INET);
 *DEBUG = \$HTTP::Daemon::DEBUG;
 
 use HTTP::Request  ();
@@ -677,12 +645,12 @@ HTTP::Daemon - a simple http server class
 
 Instances of the C<HTTP::Daemon> class are HTTP/1.1 servers that
 listen on a socket for incoming requests. The C<HTTP::Daemon> is a
-subclass of C<IO::Socket::IP>, so you can perform socket operations
+subclass of C<IO::Socket::INET>, so you can perform socket operations
 directly on it too.
 
 The accept() method will return when a connection from a client is
 available.  The returned value will be an C<HTTP::Daemon::ClientConn>
-object which is another C<IO::Socket::IP> subclass.  Calling the
+object which is another C<IO::Socket::INET> subclass.  Calling the
 get_request() method on this object will read data from the client and
 return an C<HTTP::Request> object.  The ClientConn object also provide
 methods to send back various responses.
@@ -693,7 +661,7 @@ desirable.  Also note that the user is responsible for generating
 responses that conform to the HTTP/1.1 protocol.
 
 The following methods of C<HTTP::Daemon> are new (or enhanced) relative
-to the C<IO::Socket::IP> base class:
+to the C<IO::Socket::INET> base class:
 
 =over 4
 
@@ -702,7 +670,7 @@ to the C<IO::Socket::IP> base class:
 =item $d = HTTP::Daemon->new( %opts )
 
 The constructor method takes the same arguments as the
-C<IO::Socket::IP> constructor, but unlike its base class it can also
+C<IO::Socket::INET> constructor, but unlike its base class it can also
 be called without any arguments.  The daemon will then set up a listen
 queue of 5 connections and allocate some random port number.
 
@@ -714,7 +682,7 @@ HTTP port will be constructed like this:
            LocalPort => 80,
        );
 
-See L<IO::Socket::IP> for a description of other arguments that can
+See L<IO::Socket::INET> for a description of other arguments that can
 be used configure the daemon during construction.
 
 =item $c = $d->accept
@@ -731,7 +699,7 @@ class a subclass of C<HTTP::Daemon::ClientConn>.
 
 The accept method will return C<undef> if timeouts have been enabled
 and no connection is made within the given time.  The timeout() method
-is described in L<IO::Socket::IP>.
+is described in L<IO::Socket>.
 
 In list context both the client object and the peer address will be
 returned; see the description of the accept method L<IO::Socket> for
@@ -753,7 +721,7 @@ replaced with the version number of this module.
 
 =back
 
-The C<HTTP::Daemon::ClientConn> is a C<IO::Socket::IP>
+The C<HTTP::Daemon::ClientConn> is a C<IO::Socket::INET>
 subclass. Instances of this class are returned by the accept() method
 of C<HTTP::Daemon>.  The following methods are provided:
 
@@ -927,7 +895,7 @@ Return a reference to the corresponding C<HTTP::Daemon> object.
 
 RFC 2616
 
-L<IO::Socket::IP>, L<IO::Socket>
+L<IO::Socket::INET>, L<IO::Socket>
 
 =head1 COPYRIGHT
 
diff --git a/t/chunked.t b/t/chunked.t
index c274b11..e11799f 100644
--- a/t/chunked.t
+++ b/t/chunked.t
@@ -95,30 +95,18 @@ my $can_fork = $Config{d_fork} ||
 my $tests = @TESTS;
 my $tport = 8333;
 
-my @addresses = (
-    { server => '::', client => '::1' },
-    { server => '0.0.0.0', client => '127.0.0.1' }
-);
-my $family;
-for my $id (0..$#addresses) {
-    my $tsock = IO::Socket::IP->new(LocalAddr => $addresses[$id]->{server},
-                                    LocalPort => $tport,
-                                    Listen    => 1,
-                                    ReuseAddr => 1);
-    if ($tsock) {
-        close $tsock;
-        $family = $id;
-        last;
-    }
-}
-
+my $tsock = IO::Socket::INET->new(LocalAddr => '0.0.0.0',
+                                  LocalPort => $tport,
+                                  Listen    => 1,
+                                  ReuseAddr => 1);
 if (!$can_fork) {
   plan skip_all => "This system cannot fork";
 }
-elsif (!defined $family) {
-  plan skip_all => "Cannot listen on unspecifed address and port $tport";
+elsif (!$tsock) {
+  plan skip_all => "Cannot listen on 0.0.0.0:$tport";
 }
 else {
+  close $tsock;
   plan tests => $tests;
 }
 
@@ -144,9 +132,9 @@ if ($pid = fork) {
       open my $fh, "| socket localhost $tport" or die;
       print $fh $test;
     }
-    use IO::Socket::IP;
-    my $sock = IO::Socket::IP->new(
-                                     PeerAddr => $addresses[$family]->{client},
+    use IO::Socket::INET;
+    my $sock = IO::Socket::INET->new(
+                                     PeerAddr => "127.0.0.1",
                                      PeerPort => $tport,
                                     ) or die;
     if (0) {
@@ -170,7 +158,7 @@ if ($pid = fork) {
 } else {
   die "cannot fork: $!" unless defined $pid;
   my $d = HTTP::Daemon->new(
-                            LocalAddr => $addresses[$family]->{server},
+                            LocalAddr => '0.0.0.0',
                             LocalPort => $tport,
                             ReuseAddr => 1,
                            ) or die;