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;