.\" -*- mode: troff; coding: utf-8 -*- .\" Automatically generated by Pod::Man v6.0.2 (Pod::Simple 3.45) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>. .ie n \{\ . ds C` "" . ds C' "" 'br\} .el\{\ . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" .\" Required to disable full justification in groff 1.23.0. .if n .ds AD l .\" ======================================================================== .\" .IX Title "Mail::Message::Field::AuthResults 3" .TH Mail::Message::Field::AuthResults 3 2026-04-11 "perl v5.42.2" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH NAME Mail::Message::Field::AuthResults \- message header field authentication result .SH INHERITANCE .IX Header "INHERITANCE" .Vb 5 \& Mail::Message::Field::AuthResults \& is a Mail::Message::Field::Structured \& is a Mail::Message::Field::Full \& is a Mail::Message::Field \& is a Mail::Reporter .Ve .SH SYNOPSIS .IX Header "SYNOPSIS" .Vb 1 \& my $f = Mail::Message::Field\->new(\*(AqAuthentication\-Results\*(Aq => \*(Aq...\*(Aq); \& \& my $g = Mail::Message::Field\->new(\*(AqAuthentication\-Results\*(Aq); \& $g\->addResult(method => \*(Aqdkim\*(Aq, result => \*(Aqfail\*(Aq); .Ve .SH DESCRIPTION .IX Header "DESCRIPTION" Mail Transfer Agents may check the authenticity of an incoming message. They add \*(AqAuthentication\-Results\*(Aq headers, maybe more than one. This implementation is based on RFC7601. .PP Extends "DESCRIPTION" in Mail::Message::Field::Structured. .SH OVERLOADED .IX Header "OVERLOADED" Extends "OVERLOADED" in Mail::Message::Field::Structured. .IP "overload: \fB""""\fR stringification" 4 .IX Item "overload: """" stringification" Inherited, see "OVERLOADED" in Mail::Message::Field::Full .IP "overload: \fB\*(Aq""""\*(Aq\fR stringification" 4 .IX Item "overload: '""""' stringification" Inherited, see "OVERLOADED" in Mail::Message::Field .IP "overload: \fB\*(Aq0+\*(Aq\fR numification" 4 .IX Item "overload: '0+' numification" Inherited, see "OVERLOADED" in Mail::Message::Field .IP "overload: \fB\*(Aq<=\fR\*(Aq> numeric comparison" 4 .IX Item "overload: '<='> numeric comparison" Inherited, see "OVERLOADED" in Mail::Message::Field .IP "overload: \fBbool\fR boolean" 4 .IX Item "overload: bool boolean" Inherited, see "OVERLOADED" in Mail::Message::Field .IP "overload: \fBcmp\fR string comparison" 4 .IX Item "overload: cmp string comparison" Inherited, see "OVERLOADED" in Mail::Message::Field .SH METHODS .IX Header "METHODS" Extends "METHODS" in Mail::Message::Field::Structured. .SS Constructors .IX Subsection "Constructors" Extends "Constructors" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBclone\fR() 4 .el .IP \f(CW$obj\fR\->\fBclone\fR() 4 .IX Item "$obj->clone()" Inherited, see "Constructors" in Mail::Message::Field .ie n .IP "$class\->\fBfrom\fR($field, %options)" 4 .el .IP "\f(CW$class\fR\->\fBfrom\fR($field, \f(CW%options\fR)" 4 .IX Item "$class->from($field, %options)" Inherited, see "Constructors" in Mail::Message::Field::Full .ie n .IP $class\->\fBnew\fR(%options) 4 .el .IP \f(CW$class\fR\->\fBnew\fR(%options) 4 .IX Item "$class->new(%options)" Inherited, see "METHODS" in Mail::Message::Field::Structured .Sp .Vb 10 \& \-Option \-\-Defined in \-\-Default \& attributes Mail::Message::Field::Structured \& charset Mail::Message::Field::Full undef \& datum Mail::Message::Field::Structured undef \& encoding Mail::Message::Field::Full \*(Aqq\*(Aq \& force Mail::Message::Field::Full false \& language Mail::Message::Field::Full undef \& results [] \& server \& version undef .Ve .RS 4 .IP "attributes => \e@attributes|\e%attributes" 2 .IX Item "attributes => @attributes|%attributes" .PD 0 .ie n .IP "charset => $charset" 2 .el .IP "charset => \f(CW$charset\fR" 2 .IX Item "charset => $charset" .ie n .IP "datum => $date" 2 .el .IP "datum => \f(CW$date\fR" 2 .IX Item "datum => $date" .IP "encoding => \*(Aqq\*(Aq|\*(AqQ\*(Aq|\*(Aqb\*(Aq|\*(AqB\*(Aq" 2 .IX Item "encoding => 'q'|'Q'|'b'|'B'" .IP "force => BOOLEAN" 2 .IX Item "force => BOOLEAN" .ie n .IP "language => $language" 2 .el .IP "language => \f(CW$language\fR" 2 .IX Item "language => $language" .IP "results => ARRAY" 2 .IX Item "results => ARRAY" .PD Each authentication method is represented by a HASH, which contains the \*(Aqmethod\*(Aq and \*(Aqresult\*(Aq keys. Sometimes, there is a \*(Aqcomment\*(Aq. Properties of form \*(Aqptype.pname\*(Aq will be there as well. .ie n .IP "server => $domain" 2 .el .IP "server => \f(CW$domain\fR" 2 .IX Item "server => $domain" Where the authentication tool ran. This should be your local service, otherwise you may accept spoofed headers! .IP "version => INTEGER" 2 .IX Item "version => INTEGER" .RE .RS 4 .RE .SS Attributes .IX Subsection "Attributes" Extends "Attributes" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBName\fR() 4 .el .IP \f(CW$obj\fR\->\fBName\fR() 4 .IX Item "$obj->Name()" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP $obj\->\fBbody\fR() 4 .el .IP \f(CW$obj\fR\->\fBbody\fR() 4 .IX Item "$obj->body()" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP $obj\->\fBfolded\fR() 4 .el .IP \f(CW$obj\fR\->\fBfolded\fR() 4 .IX Item "$obj->folded()" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP "$obj\->\fBfoldedBody\fR( [$body] )" 4 .el .IP "\f(CW$obj\fR\->\fBfoldedBody\fR( [$body] )" 4 .IX Item "$obj->foldedBody( [$body] )" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP $obj\->\fBname\fR() 4 .el .IP \f(CW$obj\fR\->\fBname\fR() 4 .IX Item "$obj->name()" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP "$obj\->\fBunfoldedBody\fR( [$body, [$wrap]] )" 4 .el .IP "\f(CW$obj\fR\->\fBunfoldedBody\fR( [$body, [$wrap]] )" 4 .IX Item "$obj->unfoldedBody( [$body, [$wrap]] )" Inherited, see "Attributes" in Mail::Message::Field .ie n .IP "$obj\->\fBwellformedName\fR( [STRING] )" 4 .el .IP "\f(CW$obj\fR\->\fBwellformedName\fR( [STRING] )" 4 .IX Item "$obj->wellformedName( [STRING] )" Inherited, see "Attributes" in Mail::Message::Field .SS "The field" .IX Subsection "The field" Extends "The field" in Mail::Message::Field::Structured. .ie n .IP "$any\->\fBisStructured\fR( [$name] )" 4 .el .IP "\f(CW$any\fR\->\fBisStructured\fR( [$name] )" 4 .IX Item "$any->isStructured( [$name] )" Inherited, see "The field" in Mail::Message::Field .ie n .IP $obj\->\fBlength\fR() 4 .el .IP \f(CW$obj\fR\->\fBlength\fR() 4 .IX Item "$obj->length()" Inherited, see "The field" in Mail::Message::Field .ie n .IP $obj\->\fBnrLines\fR() 4 .el .IP \f(CW$obj\fR\->\fBnrLines\fR() 4 .IX Item "$obj->nrLines()" Inherited, see "The field" in Mail::Message::Field .ie n .IP "$obj\->\fBprint\fR( [$fh] )" 4 .el .IP "\f(CW$obj\fR\->\fBprint\fR( [$fh] )" 4 .IX Item "$obj->print( [$fh] )" Inherited, see "The field" in Mail::Message::Field .ie n .IP $obj\->\fBsize\fR() 4 .el .IP \f(CW$obj\fR\->\fBsize\fR() 4 .IX Item "$obj->size()" Inherited, see "The field" in Mail::Message::Field .ie n .IP "$obj\->\fBstring\fR( [$wrap] )" 4 .el .IP "\f(CW$obj\fR\->\fBstring\fR( [$wrap] )" 4 .IX Item "$obj->string( [$wrap] )" Inherited, see "The field" in Mail::Message::Field .ie n .IP $obj\->\fBtoDisclose\fR() 4 .el .IP \f(CW$obj\fR\->\fBtoDisclose\fR() 4 .IX Item "$obj->toDisclose()" Inherited, see "The field" in Mail::Message::Field .SS "Access to the body" .IX Subsection "Access to the body" Extends "Access to the body" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBdecodedBody\fR(%options) 4 .el .IP \f(CW$obj\fR\->\fBdecodedBody\fR(%options) 4 .IX Item "$obj->decodedBody(%options)" Inherited, see "Access to the body" in Mail::Message::Field::Full .SS "Access to the content" .IX Subsection "Access to the content" Extends "Access to the content" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBaddAttribute\fR(...) 4 .el .IP \f(CW$obj\fR\->\fBaddAttribute\fR(...) 4 .IX Item "$obj->addAttribute(...)" Attributes are not supported here. .ie n .IP $obj\->\fBaddResult\fR(HASH|PAIRS) 4 .el .IP \f(CW$obj\fR\->\fBaddResult\fR(HASH|PAIRS) 4 .IX Item "$obj->addResult(HASH|PAIRS)" Add new results to this header. Invalid results are ignored. .ie n .IP $obj\->\fBaddresses\fR() 4 .el .IP \f(CW$obj\fR\->\fBaddresses\fR() 4 .IX Item "$obj->addresses()" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP $obj\->\fBattrPairs\fR() 4 .el .IP \f(CW$obj\fR\->\fBattrPairs\fR() 4 .IX Item "$obj->attrPairs()" Inherited, see "Access to the content" in Mail::Message::Field::Structured .ie n .IP "$obj\->\fBattribute\fR( $object||<$name,$value,%options> )" 4 .el .IP "\f(CW$obj\fR\->\fBattribute\fR( \f(CW$object\fR||<$name,$value,%options> )" 4 .IX Item "$obj->attribute( $object||<$name,$value,%options> )" Inherited, see "Access to the content" in Mail::Message::Field::Structured .ie n .IP $obj\->\fBattributes\fR() 4 .el .IP \f(CW$obj\fR\->\fBattributes\fR() 4 .IX Item "$obj->attributes()" Inherited, see "Access to the content" in Mail::Message::Field::Structured .ie n .IP $obj\->\fBbeautify\fR() 4 .el .IP \f(CW$obj\fR\->\fBbeautify\fR() 4 .IX Item "$obj->beautify()" Inherited, see "Access to the content" in Mail::Message::Field::Full .ie n .IP "$obj\->\fBcomment\fR( [STRING] )" 4 .el .IP "\f(CW$obj\fR\->\fBcomment\fR( [STRING] )" 4 .IX Item "$obj->comment( [STRING] )" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP "$any\->\fBcreateComment\fR(STRING, %options)" 4 .el .IP "\f(CW$any\fR\->\fBcreateComment\fR(STRING, \f(CW%options\fR)" 4 .IX Item "$any->createComment(STRING, %options)" Inherited, see "Access to the content" in Mail::Message::Field::Full .ie n .IP "$any\->\fBcreatePhrase\fR(STRING, %options)" 4 .el .IP "\f(CW$any\fR\->\fBcreatePhrase\fR(STRING, \f(CW%options\fR)" 4 .IX Item "$any->createPhrase(STRING, %options)" Inherited, see "Access to the content" in Mail::Message::Field::Full .ie n .IP $any\->\fBdateToTimestamp\fR(STRING) 4 .el .IP \f(CW$any\fR\->\fBdateToTimestamp\fR(STRING) 4 .IX Item "$any->dateToTimestamp(STRING)" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP $obj\->\fBresults\fR() 4 .el .IP \f(CW$obj\fR\->\fBresults\fR() 4 .IX Item "$obj->results()" Returns a LIST of result HASHes. Each HASH at least contains keys \*(Aqmethod\*(Aq, \&\*(Aqmethod_version\*(Aq, and \*(Aqresult\*(Aq. .ie n .IP $obj\->\fBserver\fR() 4 .el .IP \f(CW$obj\fR\->\fBserver\fR() 4 .IX Item "$obj->server()" The hostname which ran this authentication tool. .ie n .IP "$any\->\fBstripCFWS\fR( [STRING] )" 4 .el .IP "\f(CW$any\fR\->\fBstripCFWS\fR( [STRING] )" 4 .IX Item "$any->stripCFWS( [STRING] )" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP $obj\->\fBstudy\fR() 4 .el .IP \f(CW$obj\fR\->\fBstudy\fR() 4 .IX Item "$obj->study()" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP "$any\->\fBtoDate\fR( [$time] )" 4 .el .IP "\f(CW$any\fR\->\fBtoDate\fR( [$time] )" 4 .IX Item "$any->toDate( [$time] )" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP $obj\->\fBtoInt\fR() 4 .el .IP \f(CW$obj\fR\->\fBtoInt\fR() 4 .IX Item "$obj->toInt()" Inherited, see "Access to the content" in Mail::Message::Field .ie n .IP $obj\->\fBversion\fR() 4 .el .IP \f(CW$obj\fR\->\fBversion\fR() 4 .IX Item "$obj->version()" The version of the \*(AqAuthentication\-Results\*(Aq header, which may be different from \*(Aq1\*(Aq (default) for successors of RFC7601. .SS Internals .IX Subsection "Internals" Extends "Internals" in Mail::Message::Field::Structured. .ie n .IP "$any\->\fBdecode\fR(STRING, %options)" 4 .el .IP "\f(CW$any\fR\->\fBdecode\fR(STRING, \f(CW%options\fR)" 4 .IX Item "$any->decode(STRING, %options)" Inherited, see "Internals" in Mail::Message::Field::Full .ie n .IP "$obj\->\fBencode\fR(STRING, %options)" 4 .el .IP "\f(CW$obj\fR\->\fBencode\fR(STRING, \f(CW%options\fR)" 4 .IX Item "$obj->encode(STRING, %options)" Inherited, see "Internals" in Mail::Message::Field::Full .SS Parsing .IX Subsection "Parsing" Extends "Parsing" in Mail::Message::Field::Structured. .ie n .IP "$obj\->\fBconsume\fR( $line | <$name,<$body|$objects>> )" 4 .el .IP "\f(CW$obj\fR\->\fBconsume\fR( \f(CW$line\fR | <$name,<$body|$objects>> )" 4 .IX Item "$obj->consume( $line | <$name,<$body|$objects>> )" Inherited, see "Parsing" in Mail::Message::Field .ie n .IP $any\->\fBconsumeComment\fR(STRING) 4 .el .IP \f(CW$any\fR\->\fBconsumeComment\fR(STRING) 4 .IX Item "$any->consumeComment(STRING)" Inherited, see "Parsing" in Mail::Message::Field::Full .ie n .IP $obj\->\fBconsumeDotAtom\fR(STRING) 4 .el .IP \f(CW$obj\fR\->\fBconsumeDotAtom\fR(STRING) 4 .IX Item "$obj->consumeDotAtom(STRING)" Inherited, see "Parsing" in Mail::Message::Field::Full .ie n .IP $any\->\fBconsumePhrase\fR(STRING) 4 .el .IP \f(CW$any\fR\->\fBconsumePhrase\fR(STRING) 4 .IX Item "$any->consumePhrase(STRING)" Inherited, see "Parsing" in Mail::Message::Field::Full .ie n .IP "$obj\->\fBdatum\fR( [$value] )" 4 .el .IP "\f(CW$obj\fR\->\fBdatum\fR( [$value] )" 4 .IX Item "$obj->datum( [$value] )" Inherited, see "Parsing" in Mail::Message::Field::Structured .ie n .IP "$obj\->\fBdefaultWrapLength\fR( [$length] )" 4 .el .IP "\f(CW$obj\fR\->\fBdefaultWrapLength\fR( [$length] )" 4 .IX Item "$obj->defaultWrapLength( [$length] )" Inherited, see "Parsing" in Mail::Message::Field .ie n .IP "$any\->\fBfold\fR( $name, $body, [$maxchars] )" 4 .el .IP "\f(CW$any\fR\->\fBfold\fR( \f(CW$name\fR, \f(CW$body\fR, [$maxchars] )" 4 .IX Item "$any->fold( $name, $body, [$maxchars] )" Inherited, see "Parsing" in Mail::Message::Field .ie n .IP $obj\->\fBparse\fR(STRING) 4 .el .IP \f(CW$obj\fR\->\fBparse\fR(STRING) 4 .IX Item "$obj->parse(STRING)" Inherited, see "Parsing" in Mail::Message::Field::Full .ie n .IP $obj\->\fBproduceBody\fR() 4 .el .IP \f(CW$obj\fR\->\fBproduceBody\fR() 4 .IX Item "$obj->produceBody()" Inherited, see "Parsing" in Mail::Message::Field::Full .ie n .IP "$obj\->\fBsetWrapLength\fR( [$length] )" 4 .el .IP "\f(CW$obj\fR\->\fBsetWrapLength\fR( [$length] )" 4 .IX Item "$obj->setWrapLength( [$length] )" Inherited, see "Parsing" in Mail::Message::Field .ie n .IP $obj\->\fBstringifyData\fR(STRING|ARRAY|$objects) 4 .el .IP \f(CW$obj\fR\->\fBstringifyData\fR(STRING|ARRAY|$objects) 4 .IX Item "$obj->stringifyData(STRING|ARRAY|$objects)" Inherited, see "Parsing" in Mail::Message::Field .ie n .IP $obj\->\fBunfold\fR(STRING) 4 .el .IP \f(CW$obj\fR\->\fBunfold\fR(STRING) 4 .IX Item "$obj->unfold(STRING)" Inherited, see "Parsing" in Mail::Message::Field .SS "Error handling" .IX Subsection "Error handling" Extends "Error handling" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBAUTOLOAD\fR() 4 .el .IP \f(CW$obj\fR\->\fBAUTOLOAD\fR() 4 .IX Item "$obj->AUTOLOAD()" Inherited, see "Error handling" in Mail::Reporter .ie n .IP $obj\->\fBnotImplemented\fR() 4 .el .IP \f(CW$obj\fR\->\fBnotImplemented\fR() 4 .IX Item "$obj->notImplemented()" Inherited, see "Error handling" in Mail::Reporter .SS Cleanup .IX Subsection "Cleanup" Extends "Cleanup" in Mail::Message::Field::Structured. .ie n .IP $obj\->\fBDESTROY\fR() 4 .el .IP \f(CW$obj\fR\->\fBDESTROY\fR() 4 .IX Item "$obj->DESTROY()" Inherited, see "Cleanup" in Mail::Reporter .SH DETAILS .IX Header "DETAILS" Extends "DETAILS" in Mail::Message::Field::Structured. .SH DIAGNOSTICS .IX Header "DIAGNOSTICS" .ie n .IP "Error: class $package does not implement method $method." 4 .el .IP "Error: class \f(CW$package\fR does not implement method \f(CW$method\fR." 4 .IX Item "Error: class $package does not implement method $method." Fatal error: the specific \f(CW$package\fR (or one of its superclasses) does not implement this method where it should. This message means that some other related classes do implement this method however the class at hand does not. Probably you should investigate this and probably inform the author of the package. Cast by \f(CWnotImplemented()\fR .ie n .IP "Warning: field content is not numerical: $content" 4 .el .IP "Warning: field content is not numerical: \f(CW$content\fR" 4 .IX Item "Warning: field content is not numerical: $content" The numeric value of a field is requested (for instance the \f(CW\*(C`Lines\*(C'\fR or \&\f(CW\*(C`Content\-Length\*(C'\fR fields should be numerical), however the data contains weird characters. Cast by \f(CWtoInt()\fR .ie n .IP "Error: field name too long (max $count), in \*(Aq$name\*(Aq." 4 .el .IP "Error: field name too long (max \f(CW$count\fR), in \*(Aq$name\*(Aq." 4 .IX Item "Error: field name too long (max $count), in '$name'." It is not specified in the RFCs how long a field name can be, but at least it should be a few characters shorter than the line wrap. Cast by \f(CWfold()\fR .IP "Warning: illegal character in charset \*(Aq$name\*(Aq." 4 .IX Item "Warning: illegal character in charset '$name'." The field is created with an utf8 string which only contains data from the specified character set. However, that character set can never be a valid name because it contains characters which are not permitted. Cast by \f(CWencode()\fR .ie n .IP "Warning: illegal character in field name $name." 4 .el .IP "Warning: illegal character in field name \f(CW$name\fR." 4 .IX Item "Warning: illegal character in field name $name." A new field is being created which does contain characters not permitted by the RFCs. Using this field in messages may break other e\-mail clients or transfer agents, and therefore mutulate or extinguish your message. Cast by \f(CWconsume()\fR .IP "Warning: illegal character in language \*(Aq$name\*(Aq." 4 .IX Item "Warning: illegal character in language '$name'." The field is created with data which is specified to be in a certain language, however, the name of the language cannot be valid: it contains characters which are not permitted by the RFCs. Cast by \f(CWencode()\fR .IP "Warning: illegal encoding \*(Aq$name\*(Aq, using \*(Aqq\*(Aq." 4 .IX Item "Warning: illegal encoding '$name', using 'q'." The RFCs only permit base64 (\f(CW\*(C`b \*(C'\fR or \f(CW\*(C`B \*(C'\fR) or quoted\-printable (\f(CW\*(C`q\*(C'\fR or \f(CW\*(C`Q\*(C'\fR) encoding. Other than these four options are illegal. Cast by \f(CWencode()\fR .IP "Error: no attributes for Authentication\-Results." 4 .IX Item "Error: no attributes for Authentication-Results." Is is not possible to add attributes to this field. Cast by \f(CWaddAttribute()\fR .SH "SEE ALSO" .IX Header "SEE ALSO" This module is part of Mail\-Message version 4.05, built on April 10, 2026. Website: \fIhttp://perl.overmeer.net/mailbox/\fR .SH LICENSE .IX Header "LICENSE" For contributors see file ChangeLog. .PP This software is copyright (c) 2001\-2026 by Mark Overmeer. .PP This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.