sub a{printf"%7d "x@_."$f\n",@_ if@_}sub f{@l=@w=@c=();if(open z,$f){while(<z>
){$c[0]+=length if$c;$l[0]++if$l&/\n/;$w[0]+=s/\S+//g if$w;}close z;$o[0]+=$l[
0]if$l;$p[0]+=$w[0]if$w;$q[0]+=$c[0]if$c}else{$e=warn"$0: $f: $!\n"}a@l,@w,@c}
for(@ARGV){exit if/^-u$/&&warn"Usage: $0 [ -l ] [ -w ] [ -c ] file ...\n";eval
"\$$1=\@$1=0,next"if/^-([lwc])$/;push@f,$_}push@f,'-'if!@f;$l=$w=$c=1unless$l+
$w+$c;for$f(@f){&f}$f='total',a@o,@p,@q if@f>1;exit$e