Show us what you have so far. What exactly are you having trouble with? Do you not know the Perl necessary to read/write on sockets? Have you gotten that part, but don't know how to formulate the HTTP request?
No offense, but this sounds like a homework problem (even though it is the middle of summer!). Folks are much more likely to help if you show us what you've tried so we know where you are.
Post the code you have so far in Seekers of Perl Wisdom and ask a direct question. Don't just ask us to do it for you.
Looking forward to helping ..