#!/usr/local/bin/perl


$num = $#ARGV;
if ($num <=-1) {
print"usage: mergedlrfiles wildcard(without asterik) outputfile\n";
}
else {

$wild = $ARGV[0];
$outfile = $ARGV[1];
@filelist =`ls *$wild*`;
$count=0;

foreach $file (@filelist){

chop($file);

if ($count==0) {
system("tail +1 $file > $file.noheader");
$count=1;
}
else {
system("tail +2 $file > $file.noheader");
}

}

# merge the no header files into one big file

system("cat *.noheader > $outfile");
system("/usr/bin/rm *.noheader");

}
exit(0);