multi-alice.pl

use Alice;
use AnyEvent;

my @users = (
  { user => "user1",
    port => 9000,
    path => "/home/user1/.alice"
  },
  { user => "user2",
    port => 9001,
    path => "/home/user2/.alice"
  },
  { user => "user3",
    port => 9003,
    path => "/home/user3/.alice"
  },
);

print "spawning some alice instances\n";

my @alices = map { Alice->new(%$_) } @users;

AE::cv->recv;