#!/usr/bin/perl -w

use strict;
my $total = my $pod = my $comment = my $blank = my $code = 0;

while(<>) {
  $total++;
  if ( /^=\w+/ .. /^=cut/ ) { $pod++; next }
  if ( /^\s*#/ )            { $comment++; next }
  unless ( /\S/ )           { $blank++; next }
  $code++;
}

print <<END;
 Total:    $total
 POD:      $pod
 Comments: $comment
 Blank:    $blank
 Code:     $code
END