Perl Mail::sender Module Send mail

1 #!/usr/bin/perl-w2  UseStrict;3  UseMail::Sender;4  5 my $count=1;6  while(1){7 my $sender= mail::sender->New ({8SMTP ='smtp.163.com',9         #Here's an example of 163 .Tenfrom = ='Write your 163 e-mail address here: [Email protected]', OneAuth ='LOGIN', AAuthid ='here, write your 163. Email User name: Username', -Authpwd ='Write your e-mail password here: password'} -) or die "Cannot send mail:$!\n"; the   - my $messages='Hello here is the content to send'; -   -     $sender-MAILMSG ({ +to = ='which mailbox to send to: [email protected]', -Subject ='Mailbox Header', +msg =$messages} A     ); at $sender-Close(); - Print "section $count sent complete!\n"; - $count++; -}

Here's a while (1) test has been sent
Perl does not install the Mail::sender module by default and installs itself

Perl Mail::sender Module Send mail