#!/usr/bin/perl # Copyright 2000-2002 Thomas Insel srand(time() ^ ($$ + ($$<<15))); # seed from page 223 Blue Camel foreach (split "\n", <