Perl mail sender sends emails

#! /Usr/bin/perluse Mail: Sender; # A new sender defines the encoding format to prevent garbled characters. my $ sender = new Mail: Sender {ctype => 'text/plain; charset = utf-8 ', encoding => 'utf-8', };# die "Error in mailing: $ Mail: Sender: Error \ n" unless ref $ sender; if ($ sender-> MailFile ({smtp => '2017. 0.0.1 ', # hostname or ip from =>' [email protected] ', to =>' [email protected] ', subject => 'This is a test ', msg => "Hi all. \ nHow are you? This is the test information! Skip it! ", Auth => 'login', # authentication method authid => 'user', authpwd => 'pwd', file => 'Perl _ mail. pl ', # Add Attachment # charset => 'gb2312'}) <0) {die "$ Mail: Sender: Error \ n ";} $ sender-> Close (); print "Mail sent OK. ";

Perl mail sender sends emails