#!/usr/bin/perl
use strict;
use warnings;
use SourceCode::LineCounter::Perl;
my $counter = SourceCode::LineCounter::Perl->new;
foreach my $file ( @ARGV ) {
        $counter->count( $file );
        }
my $template = <<'HERE';
files: %s
total: %s
documentation: %s
code: %s
comment: %s
blank: %s
HERE
printf $template,
        scalar @ARGV,
        map { $counter->$_() }
                qw( total documentation code comment blank );