如何使用SMTP和Perl向我的Gmail帐户发送电子邮件？

cpan install MIME::Lite
cpan install Net::SMTP

#!/usr/bin/perl

use strict;
use warnings;

use Net::SMTP;
use MIME::Lite;

# 设置邮件信息
my $from = 'your_email@example.com';
my $to = 'recipient@example.com';
my $subject = 'Test email';
my $body = 'This is a test email sent using SMTP and Perl.';

# 创建邮件
my $msg = MIME::Lite->new(
    From => $from,
    To => $to,
    Subject => $subject,
    Data => $body
);

# 设置SMTP服务器信息
my $smtp_server = 'smtp.gmail.com';
my $smtp_port = 587;
my $smtp_username = 'your_gmail_username';
my $smtp_password = 'your_gmail_password';

# 连接到SMTP服务器
my $smtp = Net::SMTP->new($smtp_server, Port => $smtp_port);

# 使用TLS加密
$smtp->starttls();

# 登录到Gmail帐户
$smtp->auth($smtp_username, $smtp_password);

# 发送邮件
$smtp->mail($from);
$smtp->to($to);
$smtp->data($msg->as_string);
$smtp->quit;

print "Email sent!\n";