Perl SDK webhook client

use Paubox_Webhooks_SDK;

my $webhooks = Paubox_Webhooks_SDK->new('apiKey' => 'YOUR_API_KEY');

WEBHOOKS_API_KEY = YOUR_API_KEY

use JSON;

my $result = from_json($webhooks->listWebhookEndpoints({ page => 1, items => 50 }));

foreach my $endpoint (@{ $result->{'data'} }) {
    print "$endpoint->{'id'} $endpoint->{'target_url'} $endpoint->{'status'}\n";
}
print $result->{'page_info'}{'count'}, "\n";

my $created = from_json($webhooks->createWebhookEndpoint({
    target_url => 'https://example.com/webhooks/paubox',
    events     => ['api_mail_log_delivered', 'api_mail_log_opened'],
}));

print $created->{'data'}{'id'}, "\n";
print $created->{'data'}{'signing_secret'}, "\n";

my $endpoint = from_json($webhooks->getWebhookEndpoint('2ec66c21-bf48-48eb-8d28-f80b2d6b77c7'))->{'data'};

my $updated = from_json($webhooks->updateWebhookEndpoint('2ec66c21-bf48-48eb-8d28-f80b2d6b77c7', {
    status => 'disabled',
}))->{'data'};

$webhooks->deleteWebhookEndpoint('2ec66c21-bf48-48eb-8d28-f80b2d6b77c7');

eval {
    $webhooks->createWebhookEndpoint({
        target_url => 'https://example.com/webhooks/paubox',
        events     => ['api_mail_log_delivered'],
    });
};
print "Error: $@" if $@;