--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rapsodyn/MergeFile2x.pl	Wed Sep 10 10:24:01 2014 -0400
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $in1 = $ARGV[0];
+my $in2 = $ARGV[1];
+
+open(IN1, $in1) or die ("Can't open $in1\n");
+while (my $line = <IN1>){
+	print $line;
+}
+close (IN1);
+
+open(IN2, $in2) or die ("Can't open $in2\n");
+while (my $line = <IN2>){
+	print $line;
+}
+close (IN2);
+
+
+