use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => 'https://mysite.com:443/');
my $response = $ua->request($req);
print $response->code."\n";