use warnings;
use strict;
use Data::Dumper;
my ($d0, $count);

BEGIN {
    $Data::Dumper::Terse=$Data::Dumper::Useqq=1;
    $Data::Dumper::Indent=0;
    $/=qq(\0);
    $main::total = 0;
    $main::l = 0;
    binmode STDIN;
    binmode STDOUT;
};
binmode ${^LAST_FH};
$d0 = Dumper($_);
$main::total += $count = s/w/v/g || 0;
$main::l+=length($_);
printf STDERR qq(%-32s vs %-32s: cnt=%d tot=%d l=%d\n), $d0, Dumper($_), $count, $main::total, $main::l;