#!/usr/bin/perl

use warnings;
use strict;

use WebService::EveOnline;
use Data::Dumper;

my $API_KEY = $ENV{EVE_API_KEY};
my $USER_ID = $ENV{EVE_USER_ID};

unless ($API_KEY && $USER_ID) {
    print "Please export EVE_API_KEY and EVE_USER_ID before running\n";
    exit;
}

my $eve = WebService::EveOnline->new( { user_id => $USER_ID, api_key => $API_KEY } );

my $wanted = $ARGV[0] || undef;
my $show_max = $ARGV[1] || 5;

foreach my $char ($eve->characters) {
    next if $wanted && $wanted ne $char->name;

    print Dumper($char->kills);

}