use strict;
use warnings;

use Zabbix::Tiny;
use IO::Socket::SSL;

my $username = 'Admin';
my $password = 'zabbix';
my $url = "https://zabbixsrv/zabbix/api_jsonrpc.php";

my $zabbix = Zabbix::Tiny->new(
    server   => $url,
    password => $password,
    user     => $username,
    ssl_opts => {
        verify_hostname => 0,
        SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    }
);

my $events = $zabbix->do(
    'event.get', {
        time_from => "1506269837",
        time_till => "1508861844",
        sortfield => ["clock", "eventid"],
        sortorder => "desc",
    }
);

foreach (@$events) {
    print "$_->{clock}, $_->{objectid}\n";
}