sub start_document { $self = shift; $self->SUPER::start_document( ); print "Summary of file:\n"; }