http://www.perlcoders.com/main/scripts.html?script=QuickWhois