diff --git a/t/local/log-server b/t/local/log-server
index a77b1e60..c280cdd2 100644
--- a/t/local/log-server
+++ b/t/local/log-server
@@ -3,7 +3,6 @@ use strict;
 use HTTP::Daemon ();
 use CGI 4.08;
 use Getopt::Long;
-use Socket ();
 
 $|++;
 
@@ -13,8 +12,7 @@ GetOptions(
 
 my $d = HTTP::Daemon->new or die;
 
-my $url = URI->new($d->url);
-print "$url\n";
+print $d->url, "\n";
 
 my ($filename,$logfile) = @ARGV[0,1];
 if ($filename) {
diff --git a/t/local/referer-server b/t/local/referer-server
index a6f206b1..9ecd3938 100644
--- a/t/local/referer-server
+++ b/t/local/referer-server
@@ -1,14 +1,11 @@
 # Thanks to merlyn for nudging me and giving me this snippet!
 
 use HTTP::Daemon ();
-use URI::URL;
-use Socket ();
 
 $|++;
 
 my $d = HTTP::Daemon->new or die;
-my $lhurl = URI::URL->new( $d->url );
-print $lhurl->as_string, "\n";
+print $d->url, "\n";
 
 $counter = 5;
 while ($counter-- and my $c = $d->accept) {