package MM;

my @times = (time, times);

END {
  warn sprintf("real %d, user %.2g, sys %.2g, cuser %.2g, csys %.2g\n",
	       map { $_ - shift @times } time, times);

  local *ARGV;
  @ARGV = sort values %INC;
  my $sum = 0;
  while (<>) {
    next unless eof;
    warn "$ARGV: $.\n";
    $sum += $.;
    close ARGV;
  }
  warn "total: $sum\n";
}
1;