#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($RealBin);
use lib "$RealBin/lib/dapPerlGenomicLib";
use VcfReader 0.3;

die "Usage: countVariants.pl input1.vcf input2.vcf ...\n" if @ARGV <  1;
my $total = 0;
while (my $vcf = shift){ 
    my $variants = VcfReader::countVariants($vcf) ;
    print "$vcf:\t$variants variants\n";
    $total += $variants;
}
print "Total:\t$total variants\n";