#!/usr/bin/perl

use strict;
use warnings;

my $re;
my $qu;
 $re = $ARGV[0];
 $qu = $ARGV[1];

print $re,"\t",$qu,"\n";
$match = system(mer -maxmatch "$re" "$re");
$camp = system(mer -cods "$re" "$qu");
system (perl ma.pl "$re" "$qe");