#!/usr/local/bin/perl -w
#	Changename.pl DIR OLDTEXT NEWTEXT
#
# Typical execution is:
#
$source= $ARGV[0];
opendir(ORG,$source) || die("\nSorry Could not open ",$source," \n");

while( $name=readdir(ORG))	{
	$new=$name;
	next if( $name eq '.' || $name eq '..' );
	next unless $new =~ m%Clip%;
	next if( $new =~ m%second% );
	$new =~ s%Clip%secondClip%;
	next unless $new;
	$com= "mv " .$source .'/'. $name . " ". $source .'/'.$new;
	system("$com");
}
