--- /usr/local/bin/use.perl.orig	Mon Sep 22 13:20:13 2003
+++ /usr/local/bin/use.perl	Mon Sep 22 14:46:05 2003
@@ -2,8 +2,6 @@
 # $FreeBSD: ports/lang/perl5.8/files/use.perl,v 1.6 2002/07/21 17:09:12 tobez Exp $
 use strict;
 
-# XXX what to do with perldoc, pelbug, perlcc ??
-
 sub usage
 {
 	print STDERR <<EOF;
@@ -43,6 +41,19 @@
 		link '/usr/bin/perl5', '/usr/bin/perl';
 		link '/usr/bin/perl5', '/usr/bin/perl5.8.0';
 
+		if( -e '/usr/bin/perlbug-system') {
+			unlink '/usr/bin/perlbug';
+			rename '/usr/bin/perlbug-system', '/usr/bin/perlbug';
+		}
+		if( -e '/usr/bin/perlcc-system') {
+			unlink '/usr/bin/perlcc';
+			rename '/usr/bin/perlcc-system', '/usr/bin/perlcc';
+		}
+		if( -e '/usr/bin/perldoc-system') {
+			unlink '/usr/bin/perldoc';
+			rename '/usr/bin/perldoc-system', '/usr/bin/perldoc';
+		}
+
 		if ($ident =~ m#src/usr.bin/perl/perl.c#) {
 			link '/usr/bin/perl5', '/usr/bin/suidperl';
 		} else {
@@ -92,6 +103,19 @@
 		symlink '/usr/local/bin/perl', '/usr/bin/perl';
 		symlink '/usr/local/bin/suidperl', '/usr/bin/suidperl';
 		symlink '/usr/local/bin/perl', '/usr/bin/perl5.8.0';
+
+		if( ! -e '/usr/bin/perlbug-system' ) {
+			rename '/usr/bin/perlbug', '/usr/bin/perlbug-system';
+			symlink '/usr/local/bin/perlbug', '/usr/bin/perlbug';
+		}
+		if( ! -e '/usr/bin/perlcc-system' ) {
+			rename '/usr/bin/perlcc', '/usr/bin/perlcc-system';
+			symlink '/usr/local/bin/perlcc', '/usr/bin/perlcc';
+		}
+		if( ! -e '/usr/bin/perldoc-system' ) {
+			rename '/usr/bin/perldoc', '/usr/bin/perldoc-system';
+			symlink '/usr/local/bin/perldoc', '/usr/bin/perldoc';
+		}
 	}
 
 	open MK, ">> /etc/make.conf" or die "/etc/make.conf: $!";