Just use LWP::UserAgent. It parses the response for you, and create a HTTP::Response object, and you can just call code method of that object.

Re: beyond LWP return code might have a little bit more info for you.