mess:

$dishesFactory = DishesFactory->instance; # singleton

Sendmail->send( $dishesFactory, "I need clean dishes" );

@dishes = $dishesFactory->get;

use @dishes;

DESTROY @dishes;

sleep until next $mealtime;

goto mess;