Initial commit from latest tar.gz file

pch/script/merge.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+$out=<>;
+$out=~s/\r//g;
+chomp $out;
+-e $out and die "file already exists, cowardly exiting";
+open OUT,">",$out or die "failed to write file";
+$param=<>;
+$param=~s/\r//g;
+chomp $param;
+die "extended merges aren't supported" if $param!='';
+while (<>) {
+	chomp;
+	s/\r//g;
+	open FILE,"<",$_ or die "failed to open file";
+	print OUT while <FILE>;
+	close FILE;
+}
+close OUT;