#!/usr/local/bin/perl5 -w
#
die "Initial file $ARGV[0] does not exist\n" unless( -e "foil$ARGV[0].addoninfo" );
$i=1;
while(defined($ARGV[$i]))	{
	die "Target file $ARGV[$i] exists already\n" if( -e "foil$ARGV[$i].addoninfo" );
	$com = "cp foil$ARGV[0].addoninfo foil$ARGV[$i].addoninfo";
	system($com);
	$i++;
}
