use strict;
use warnings;
use AnyEvent;
use AnyEvent::Ident::Client;

my $server_port = shift // '1';
my $client_port = shift // '1';

my $client = AnyEvent::Ident::Client->new( hostname => '127.0.0.1' );

my $done = AnyEvent->condvar;

$client->ident($server_port, $client_port, sub {
  my $response = shift;
  if($response->is_success)
  {
    printf "user: %s os: %s\n", $response->username, $response->os
  }
  else
  {
    printf STDERR "ERROR: %s\n", $response->error_type;
  }
  $done->send;
});

$done->recv;