However, you can use $ENV{REMOTE_ADDR} (the ip of the connecting client). This cannot be spoofed (although they could go and use a proxy).

my @a=qw(random brilliant braindead); print $a[rand(@a)];