#!/usr/bin/env perl

use strict;
use warnings;

use Cwd         qw( realpath );
use IO::Socket  qw( AF_UNIX SOCK_STREAM );
use Path::Class qw( file );
use Time::HiRes qw( time );

my $socket_path = file(realpath($0))->dir()->file('socket');

my $num_connects = $ARGV[0] || 1000;

my $stime = time;
for (1..$num_connects) {
   my $client = IO::Socket->new(
      Domain => AF_UNIX,
      Type   => SOCK_STREAM,
      Peer   => $socket_path,
   )
      or die("Can't connect to server socket: $!\n");

   # ...
}
my $etime = time;
printf("%.3fms per connection\n", ($etime-$stime)/$num_connects*1000);