Net::SMTP

[john.swilting]

i would like to eclaicir a point of detail i use net::smtp it places the
EHLO localhost.localdomain order but me i would love HELO
localhost.localdomain
This for e good functioning of my scripts i read doc but I n
arrives(manages,happens) not indeed at the dechiffrer can you m help I thank
you

sub SMTP_TEST{

my($host,$nom,$e_mail) = @_;

my $smtp = Net::SMTP->new($host);
if(defined($smtp)){
;
}
if(defined($smtp->mail($nom))){
;
}
if(defined($smtp->to($e_mail))){
;
}
if(defined($smtp->data())){
;
}
if(defined($smtp->datasend("To: postmaster\n","\n","a simple test
message\n"))){
;
}
if(defined($smtp->dataend())){
;
}
if(defined($smtp)){
AFFICHAGE($host);
}

}