my $doer = new ThingThatDoesStuff ({@parameters});
while ($doer->GetNextEvent()) {
	# handle event
}