--- perl-5.8.x/lib/File/Copy.pm	2003-12-05 20:43:59.000000000 +0100
+++ new.perl-5.8.x/lib/File/Copy.pm	2004-05-10 11:56:38.000000000 +0200
@@ -274,8 +274,7 @@
 	copy("Copy.pm",\*STDOUT);
 	move("/dev1/fileA","/dev2/fileB");
 
-	use POSIX;
-	use File::Copy cp;
+	use File::Copy "cp";
 
 	$n = FileHandle->new("/a/file","r");
 	cp($n,"x");'