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...
[download]