http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/4d2219139165592c/#