#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use Crypt::SSLeay;
use HTTP::Cookies;

print scalar(gmtime), " :Starting Killspam.pl\n";

my $url ='https://...big...URL....';

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( );

print scalar(gmtime), " :Acessed log-on page\n";

# 
# post to the secure log-on page with my credentials
#
$response = $ua->post(
  'https://...some...url...',
  [
    'type'  => "voodoo",
    'p908' => "thing",
    'user' => 'username', 
    'pwd' => "password"
  ],
);

$response->is_success or die "Error: ", $response->status_line;
   #print $response->headers_as_string;
$html_page = $response->content( );
   #print $html_page;
   
#Then parse $html_page from here....