#!/usr/bin/perl

my $pwd;

chomp($pwd = `pwd`);

if ($] < 5.006) {
	if (! -e "/usr/bin/rsync" && ! -e "/usr/local/bin/rsync") {
		chdir("/usr/ports/net/rsync");
		system("make","distclean","all","install","distclean");
	}

	chdir($pwd);
	system("/scripts/portsup");

	chdir("/usr/ports/lang/perl5.8");
	system("make","distclean","all","install","distclean");
	system("use.perl","port");
} else {
	print "$] is new enough!\n";
}

chdir($pwd);