{perl} HTTP Error Code Response

[gty]

I need to be able to send http requests to a given server and have it respond with the error code of the page displayed. Something with a response like:

C:\> perl blah.pl host.com 80
Error Code: 404 (Page Not Found)

or

C:\> perl blah.pl host2.com 80
Error Code: 403 (Forbidden)

So I looked up info on the HTTP::Request class and tried

require HTTP::Request;

$request = HTTP::Request->new(GET => 'http://www.host.com');

print $request;

but was responded with

HTTP::Request=HASH(0x1899864)

I'm a newbie when it comes to Perl but any ideas would be greatly appreciated.

[idx]

Typically HTTP::Request is used in conjunction with LWP::UserAgent or various other modules. I don't believe this module actually performs the request.

See the UserAgent module for an example:

http://search.cpan.org/~gaas/libwww-...P/UserAgent.pm

Or LWP::Simple:

http://search.cpan.org/~gaas/libwww-.../LWP/Simple.pm

-r

[gty]

Thanks idx, after my post I was looking around cpan and found a a couple more things to try as well HTTP::Status and LWP::Simple were tw oof them, so thanks again.