--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rapsodyn/CreateMatrix.pl	Mon Jan 19 04:33:21 2015 -0500
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+#V1.0.0
+use strict;
+use warnings;
+use Getopt::Long;
+
+my $input_pileup_file;
+my $input_variant_file;
+my $input_variant_unique_file;
+
+GetOptions (
+"input_pileup_file=s" => \$input_pileup_file,
+"input_variant_file=s" => \$input_variant_file,
+"input_variant_unique_file=s" => \$input_variant_unique_file
+) or die("Error in command line arguments\n");
+
+
+
+print "$input_pileup_file\n$input_variant_file\n$input_variant_unique_file\n";
+