#!/usr/bin/perl -w
sub filename {
	my @ARGS=@_;
	my $name=$ARGS[0];
	while ($name =~ /\//) {
		$name=substr($name,index($name,"/")+1);
	}
	return $name;
}

sub path {
	my @ARGS=@_;
	my $name=$ARGS[0];
	my $newstring="";
	while ($name =~ /\//) {
		$newstring=$newstring.substr($name,0,index($name,"/")+1);
		$name=substr($name,index($name,"/")+1);
	}
	return $newstring;
}


if ((@ARGV < 2)||($ARGV[0] eq "--help")) {
	print "usage: prepend.pl string file1 [file2 . . .]\n";
	print "will rename the files to stringfile1 [stringfile2 . . .]\n";
} else {
	$pre=$ARGV[0];
	for ($c=1;$c<@ARGV;$c++) {
		if ($ARGV[$c] =~ /\//) {
			$newfile=path($ARGV[$c]).$pre.filename($ARGV[$c]);
			rename ($ARGV[$c],$newfile);
		} else {
			$newfile=$pre.$ARGV[$c];
			rename ($ARGV[$c],$newfile);
		}
		print "renaming $ARGV[$c] to $newfile\n";
	}
}