Okay, this is driving me nuts because I have no clue. I am not sure this has as much to do with my code as it does with the perl environment.

I just installed several of the modules to help get https support so I could stop getting an error message about loading LWP::Protocol::HTTPS. However, now I am down another road. First off, CPAN installed the modules outside of @INC path which is strange. But, secondly and most importantly, it gives me a segmentation fault (plain and simple, no other message) when it tries to access Net::SSL.pm.

(I use the lib pragma because the modules it is looking for is outside my path and at this point it was just easier to do it that way until I can fix the seg fault.)

Any ideas what is causing the seg fault and how would I go about diagnoising it without delving into Net::SSL.pm?

use lib qw(/usr/local/lib/perl5/site_perl/5.6.1/ /usr/local/lib/perl5/
+site_perl/5.6.1/i686-linux);
use LWP;
use HTTP::Cookies;

my $browser = LWP::UserAgent->new;
my $cookie_locale = "cookies.lwp";
$browser->agent("Jonzilla/666");
$browser->cookie_jar( HTTP::Cookies->new(
                         'file' => $cookie_locale,
                         'autosave' => 1,
                        ));
&sign_in;

sub sign_in
  {
    my $result;
    my $gb_num = 10;


    my $email = "xxxxxxx";
    my $password = "xxxxxxxx";
    my $url = "https://www.amazon.com/exec/obidos/flex-sign-in-done/10
+3-9886259-8125402";
    my $response = $browser->post( $url,
                [
                 'email'     => "$email",
                 'action'    => 'sign-in checked',
                 'next-page' => 'recs/instant-recs-register-secure.htm
+l',
                 'password'  => $password,
                ],
                  );    
    my $request = new HTTP::Request 'GET' => $url;

    $result = $browser->request($request); 
    if ($result->is_success)
      {
    print $result->as_string;
      }
    else
      {
    print "Error: " . $result->status_line . "\n";
      }
  }
[download]

---

I admit it, I am Paco.