#! /usr/bin/perl

$ARGV[0] || die "Usage: prepend <name> <file1> <file2> ... <fileN>\n";

for ($i=1; $i<@ARGV; $i++) {
	if (-f $ARGV[$i]) {
		rename $ARGV[$i], $ARGV[0] . $ARGV[$i];
		print "rename ", $ARGV[$i], " to ", $ARGV[0] . $ARGV[$i], "\n";
	} else {
		warn "File $ARGV[$i] doesn't exist\n";
	}
}