AnyEvent-Finger

 view release on metacpan or  search on metacpan

example/client_simple.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use AnyEvent;
use AnyEvent::Finger qw( finger_client );

my $done = AnyEvent->condvar;

finger_client 'localhost', shift @ARGV, sub {
  my($lines) = @_;
  print "[response]\n";
  print join "\n", @$lines;
  print "\n";
  $done->send;
}, on_error => sub {
  print STDERR shift;
  print STDERR "\n";
  $done->send;
};

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.832 second using v1.00-cache-2.02-grep-82fe00e-cpan-da92000dfeb )