Here are some perl scripts.
This is not much more than a test, but maybe you can learn from it or base your own (hardcoded) bot for a specific application on it.
The old version is probably nothing for you, but should be easier understandable.
It's the first time I did anything with sockets and is dated back 2004 maybe... So I advise you to at least try to understand 0.03
Have fun messing around....
The modern version from 0.0.4 on is a lot more functional and better (still not too good); as I'm lazy, the descriptions for it are just to be found in the header of the file.
>> 0.0.4 - More modern version but still just all in one file
>> 0.0.3 - less crappy new version