如何在perl中将变量传递给子例程以发送电子邮件

cpan Email::Sender

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;

my %email_data = (
    'to' => 'recipient@example.com',
    'from' => 'sender@example.com',
    'subject' => 'Email Subject',
    'body' => 'Email Body',
    'variable' => $variable
);

my $email = Email::Simple->create(
    header => [
        To      => $email_data{'to'},
        From    => $email_data{'from'},
        Subject => $email_data{'subject'},
    ],
    body => $email_data{'body'} . " Variable: " . $email_data{'variable'}
);

sendmail($email);

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;

my $variable = "Hello, World!";

my %email_data = (
    'to' => 'recipient@example.com',
    'from' => 'sender@example.com',
    'subject' => 'Email Subject',
    'body' => 'Email Body',
    'variable' => $variable
);

my $email = Email::Simple->create(
    header => [
        To      => $email_data{'to'},
        From    => $email_data{'from'},
        Subject => $email_data{'subject'},
    ],
    body => $email_data{'body'} . " Variable: " . $email_data{'variable'}
);

sendmail($email);