use LWP;
use LWP::UserAgent;
use LWP::Protocol::https;

##</code><code>##

my $connect = new LWP::UserAgent;
my $request = new HTTP::Request 'POST', 'https://secure.directnic.com/myaccount/myaccount.php';
my $response = $connect->request($request);

print $response;

##</code><code>##

print $response;

##</code><code>##

print $response->content;
print $response->as_string;