After investigating it, you are correct. That would be the best way to get it. However, it is disabled in most of the perl versions I have looked at. Thanks for the work. I'll have to continue recording information the way that I was.

perl -we 'use Socket; Socket::getsockopt()'
Your vendor has not defined Socket macro getsockopt, used at -e line 1
[download]

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