Next Making Programs Faster 44

Mail::Header

        sub handle_message {
          my $message = $_[0];
          my $mi = Mail::Internet->new($message);
          $count++;
          $total_size += length $mi->as_string;
          letter_histogram( $mi->as_string );
          from_histogram( $mi->head->get("From:") );
        }

Next Copyright © 2003 M. J. Dominus