Perl SDK email client

my $service = Paubox_Email_SDK->new();

my $msg = Paubox_Email_SDK::Message->new(
    'from'                    => 'sender@yourdomain.com',  # required
    'to'                      => ['alice@example.com'],     # required; arrayref
    'subject'                 => 'Your results are ready',  # required
    'text_content'            => 'Plain text body.',        # at least one required
    'html_content'            => '<p>HTML body.</p>',       # optional; auto base64-encoded
    'replyTo'                 => 'support@yourdomain.com',  # optional
    'cc'                      => ['manager@example.com'],   # optional; arrayref
    'bcc'                     => ['audit@example.com'],     # optional; arrayref
    'allowNonTLS'             => 0,                         # optional; default 0
    'forceSecureNotification' => 'true',                    # optional; "true"/"false"
    'attachments'             => [$attachment],             # optional; arrayref of hashrefs
);

use MIME::Base64;
use String::Util qw(trim);

my $attachment = {
    fileName    => 'report.pdf',
    contentType => 'application/pdf',
    content     => trim(encode_base64(do { local $/; open my $fh, '<:raw', 'report.pdf' or die $!; <$fh> })),
};

my $msg = Paubox_Email_SDK::Message->new(
    'from'        => 'sender@yourdomain.com',
    'to'          => ['alice@example.com'],
    'subject'     => 'Report attached',
    'text_content'=> 'See attachment.',
    'attachments' => [$attachment],
);

my $response = $service->sendMessage($msg);

use JSON;
my $json = decode_json($response);
print "Tracking ID: " . $json->{sourceTrackingId} . "\n";

my $disposition = $service->getEmailDisposition($sourceTrackingId);
my $json = decode_json($disposition);

for my $delivery (@{ $json->{data}{message}{message_deliveries} }) {
    print $delivery->{recipient} . " -> " . $delivery->{status}{deliveryStatus} . "\n";
}

my $response = $service->scheduleMessage($msg, '2025-12-25T15:00:00Z');
my $json = decode_json($response);
print "Tracking ID: " . $json->{sourceTrackingId} . "\n";
print "Scheduled for: " . $json->{scheduledAt} . "\n";

my $response = $service->getScheduledMessage($sourceTrackingId);
my $json = decode_json($response);
print "State: " . $json->{state} . "\n";       # "pending", "sent", "cancelled"
print "Scheduled for: " . $json->{scheduledAt} . "\n";

my $response = $service->rescheduleMessage($sourceTrackingId, '2025-12-26T10:00:00Z');
my $json = decode_json($response);
print "New time: " . $json->{scheduledAt} . "\n";

my $response = $service->cancelScheduledMessage($sourceTrackingId);
my $json = decode_json($response);
print "State: " . $json->{state} . "\n";       # "cancelled"

eval {
    my $response = $service->sendMessage($msg);
    print "Sent: $response\n";
};
if ($@) {
    print "Error: $@\n";
}