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]