my $world = new RealWorld;
my $door = new Building::Doorway;
$door->install(new Building::Door);
my $head = new Body::Appendage::Head;
while($world->populace =~ /idiot|moron|fool|nitwit|jerk/){ #Accepting
+suggestions for other things to check for...
$door->open();
$door->doorway($head);
$door->close();
}
$world->end();
#Life package still under development...