-cp /usr/share/examples/cvsup/ports-supfile /root
-perl -pi -e 's/CHANGE_THIS/cvsup1/;' /root/ports-supfile
-cvsup /root/ports-supfile
+#cp /usr/share/examples/cvsup/ports-supfile /root
+#perl -pi -e 's/CHANGE_THIS/cvsup13/;' /root/ports-supfile
+#cvsup /root/ports-supfile
+
+# choose the fastest cvsup server, then cvsup update
+/usr/local/bin/cvsup -g -L 2 -h cvsup2.freebsd.org /usr/share/examples/cvsup/ports-supfile
+
+# Update the ports database
+#/usr/local/sbin/portsdb -Uu
+portsdb -Uu
+
+portinstall -PR portupgrade
+
+portinstall -PR lang/perl5.8
+# if FreeBSD 4.x, then
+/usr/local/bin/use.perl port
+
+#portupgrade -f `(pkg_info -R perl-5\* |tail +4; \
+# find /usr/local/lib/perl5/site_perl/5.[68].[1245] -type f -print0 \
+# | xargs -0 pkg_which -fv | sed -e '/: ?/d' -e 's/.*: //')|sort -u`
+