PLease help! Using LWP to check to see if Secure Server is running

[Frank Belfie]

use LWP::UserAgent;
  my $ua = new LWP::UserAgent;
  my $req = new HTTP::Request('GET', 'https://www.someserver.com');
  my $res = $ua->request($req);
  print $res->code."\n";


The return code is always 501 with secure servers, and 200 with non-secure.
Should this code work?

I know the ssl server is up and listening, yet I get the 501 code.  All I need
this to do is see if it is still taking requests.  I installed the openssl, and
all neccessary packages.

RedHat 7.0, Perl5.6.0.....  Doesn't throw any errors?

Any help is very appreciated!

Thanks,

Frank Belfie
Datacomm Engineer
Commerce Bank, N.A.
[EMAIL PROTECTED]


______________________________________________________________________
OpenSSL Project                                 http://www.openssl.org
User Support Mailing List                    [EMAIL PROTECTED]
Automated List Manager                           [EMAIL PROTECTED]