I wrote one using Bot::BasicBot which is based on POE stuff. It's a good place to start.

Thanks @neilwatson. It's always useful to look at someone else's code.

I don't know how to trigger an event after a specified amount of time.

From http://poe.perl.org/?POE_Cookbook/Waiting:

# beforehand
$kernel->state('event_part_two', \&task_part_two);
sub task_part_one {
  # Do some work.
  ...;
  # Ask POE::Kernel to give this session an "event_part_two"
  # event after five seconds have passed.
  $kernel->delay(event_part_two => 5);
}
sub task_part_two {
  # Do some more work.
  ...;
}
[download]

Thank you very much @Anonymous Monk. That's exactly what I was looking for.

Sounds like this would be an interesting project for an undergrad assignment. Network communication + async + timeout, oh my!