#!/usr/bin/perl -w
#Author: Feng Cheng
use warnings;
use strict;

my $dirw = $ARGV[0];
my $in = "$dirw/temp/a2aTandemDups";
my $out = "$dirw/temp/a2aTandemDups.lst";
system("cp $in $out");
unlink $in;

$in = "$dirw/temp/b2bTandemDups";
$out = "$dirw/temp/b2bTandemDups.lst";
system("cp $in $out");
unlink $in;

