Sorry. I'm not done quite yet. I've had changes pending in Net::Server for nearly a year adding IPv6 support (thanks to patches from half a dozen people). Once I'm done then you can just start up Net::Server and you get IPv4 and 6 for free.
my @a=qw(random brilliant braindead); print $a[rand(@a)];