package Sid's::Poker::Player;
push (@Sid's::Poker::Player::ISA, AI::Poker::Player);
...
my $dealer = new AI::Poker::Dealer();
$dealer->add_players($sid, $elgon, ...);
$dealer->shuffle();
$dealer->burn();
$dealer->flop();
for ($dealer->players) {
  $_->bet();
}
...
## all in some sort of loop until everyone passes.