#!/usr/bin/perl

open (SOURCE, "$ARGV[0]");
if (-B SOURCE)
	{
	binmode (SOURCE);
	}
@PLACEHOLDER=<SOURCE>;

for ($count=1;$count le $#ARGV;$count++)
	{
	open (DESTINATION, ">$ARGV[$count]");
	if (-B SOURCE)
		{
		binmode (DESTINATION);
		}
	print DESTINATION @PLACEHOLDER;
	close (DESTINATION);
	}