--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/filters/commWrapper.pl	Fri Mar 09 19:37:19 2012 -0500
@@ -0,0 +1,19 @@
+#! /usr/bin/perl -w
+
+use strict;
+use warnings;
+use File::Temp "tempfile";
+#use POSIX qw(tmpnam);
+
+my ($input1, $input2, $mode, $out_file1) = @ARGV;
+
+my ($fh, $file1) = tempfile();
+my ($fh1,$file2) = tempfile(); 
+
+`sort $input1 > $file1`;
+`sort $input2 > $file2`;
+`comm $mode $file1 $file2 > $out_file1`;
+`rm $file1 ; rm $file2`;
+
+
+