#!/usr/bin/perl -w

#This script is a once off to update all the .htaccess files

sub change {
	my $copyfile = shift;
	system("ln -fs /home/www/www.stats.nor.com.au/indexstat.php3 $copyfile/index.php3");
}

grep { changehtaccess $_ } @ARGV;