# As root
$ /usr/bin/perl -MCPAN -e autobundle
	

##</code><code>##

$ cd /usr/ports/lang
$ mkdir -p perl5.8/files
$ cd perl5.8
$ ftp ftp://ftp.freebsd.org/pub/FreeBSD/branches/4.0-stable/ports/lang/perl5.8/
# at this point I enter the FTP shell
> prompt
> mget *
> lcd files
> cd files
> mget *
> exit
$ cd ..


##</code><code>##

$ cd /usr/ports/lang/perl5.8/
$ make install
</pre>
	

##</code><code>##

		pkg_info -L perl-5.8.0* | grep local/bin | perl -pe 's!/usr/local/bin/!!'>perl_binaries.txt
	

##</code><code>##

for f in `cat perl_binaries.txt`; { 
	echo "mv /usr/local/bin/$f /usr/local/bin/$f.copy; ln -s /usr/bin/$f /usr/local/bin/$f";
}
	     

##</code><code>##

cp /usr/libdata/perl/5.00503/CPAN/Config.pm /usr/local/lib/perl5/5.8.0/CPAN/Config.pm
	

##</code><code>##

/usr/local/bin/perl58.copy -MCPAN -e 'install Bundle::Snapshot_Your_Name_Here' | tee perl_module_upgrade_results.txt
    

##</code><code>##

perl_module_upgrade_results.txt<code> 
			file:
			<p>
			<code>
Running make test
  Make had some problems, maybe interrupted? Won't test
Running make install
  Make had some problems, maybe interrupted? Won't install
Bundle summary: The following items in bundle Bundle::Test had installation
problems:
  DBD::Pg
  </pre>
  

##</code><code>##

PERL_VERSION=5.8.0
PERL_VER=5.8.0
PERL5=/usr/local/bin/perl58.copy
PERL=/usr/local/bin/perl58.copy
PERL_ARCH=mach
		

##</code><code>##

			perl58.copy Makefile.PL
			make install POLLUTE=1
			

##</code><code>##

       POLLUTE
         Release 5.005 grandfathered old global symbol names by
         providing preprocessor macros for extension source
         compatibility.  As of release 5.6, these preprocessor
         definitions are not available by default.  The POLLUTE
         flag specifies that the old names should still be
         defined:

           perl Makefile.PL POLLUTE=1

         Please inform the module author if this is necessary to
         successfully install a module under 5.6 or later
		</pre>
	</blockquote></li>

		<li><b>GnuPG</b>. GnuPG needed to  be patched to <code>make

##</code><code>##

				$img-&gt;Write(file=&gt;\*IMAGE,filename=>$filename);
			

##</code><code>##

				$img-&gt;Write(filename=>$filename);

			

##</code><code>##

diff 5.5-bare-module-list.txt 5.8-bare-module-list.txt | grep '>' | tee only-in-5.5.txt | more

##</code><code>##

for f in `cat 5.5-bare-module-list.txt`; { echo -n "$f XXX "; perl -M$f -e 1; echo; } 2>&1 | tee 5.5-use-module-failures.txt
	

##</code><code>##

diff 5.5-use-module-failures.txt 5.8-use-module-failures.txt | grep '>.*XXX \w' | tee modules_broken_in_58_and_not_55.txt  | more
	

##</code><code>##

/usr/local/lib/perl5/5.8.0/CGI/Carp.pm
/usr/local/lib/perl5/site_perl/5.8.0/CGI/Carp.pm
			

##</code><code>##

cp /usr/local/lib/perl5/5.8.0/CGI/Carp.pm /usr/local/lib/perl5/site_perl/5.8.0/CGI/Carp.pm
				

##</code><code>##

use CGI qw(param);
# ....
print popup_menu(-name=>'foo',values=>[0,1]);
			

##</code><code>##

 Undefined subroutine &Sumsault::CgiDB::popup_menu called at	
				

##</code><code>##

		  ls -l /usr/bin/{perl,suidperl,perl5*,sperl*}
	  

##</code><code>##

/usr/local/bin/use.perl port
  

##</code><code>##

for f in `cat perl_binaries.txt`; { echo "mv /usr/local/bin/$f.copy /usr/local/bin/$f; "; }
			

##</code><code>##

locate 'httpd-error_log' | grep -v '\.' | xargs tail -50 | egrep -v \ 
'does not exist|script not found|invalidate|authentication failure|unable to include|commit ineffective|uninitialized value|explicit disconnect' | more	


##</code><code>##

		/usr/local/bin/use.perl system