my $ua = LWP::UserAgent->new or die "Problem with the new UserAgent\n";
$ua->cookie_jar(HTTP::Cookies->new);
$ua->agent("Mozilla/4.76 [en] (Windows NT 5.0; U)");
print "And now I'm calling myself ", $ua->agent( ), "!\n";

#
# Get the log on page to the Secure Server
#
my $response = $ua->get($url) or die "Problem with the get $url\n";
$response->is_success or
    die "Failed to GET '$url': ", $response->status_line;
my $html_page = $response->content( );

# 
# post the secure log-on with my credentials
#
$response = $ua->post(
  'https://services....someurl',
  [
    'type'  => "ABCDEF",  #weird parameters that are page specific
    "prev" => "GHIJK",
    'p201' => "XYZZY",
    'p1' => 'some_user_name',
    'p2' => 'some_domain',
    'p3' => 'some_password'
  ],
);