Hi, monks

Can you explain me what's i'm doing wrong?

This simple script did't work :-(. The error is:

IO::Socket::INET: connect: Unknow error
Can't create network socket... : Unknown error

Here is script

 use LWP::UserAgent;
 use LWP::Protocol::https::SocksChain;
 LWP::Protocol::implementor( https => 'LWP::Protocol::https::SocksChai
+n' );
 @LWP::Protocol::https::SocksChain::EXTRA_SOCK_OPTS = ( 
                            Chain_Len    => 1, 
                                                        Debug        =
+> 0,
                                                        Chain_File_Dat
+a => [
                                                           '83.22.135.
+115:17789:::4',
                                                           '24.149.242
+.242:41801:::4',
                               '86.127.20.42:36049:::4',
                               '66.177.248.75:10837:::4',
                               '59.93.169.9:8245:::4',
                               '210.4.173.38:25455:::4',
                               '219.168.197.20:47173:::4',
                               '77.100.137.238:49521:::4',
                               '69.204.162.135:14709:::4',
                               '125.63.81.166:3515:::4',
                               '68.144.4.255:4973:::4',
                               '24.96.247.90:11049:::4',
                               '68.206.160.167:57311:::4',
                               '89.155.126.178:7631:::4',
                               '83.22.135.115:17789:::4',
                               '97.81.225.223:58661:::4',
                               '76.241.72.129:48733:::4',
                               '72.225.37.251:52673:::4',
                               '71.196.173.197:3793:::4',
                               '61.2.28.188:28215:::4',
                               '24.149.242.242:41801:::4',
                               '24.198.93.212:9903:::4',
                               '87.94.87.111:39855:::4',
                            ],
                            Auto_Save    => 0,
                            Restore_Type => 0 );
 my $ua = LWP::UserAgent->new();
 my $req = HTTP::Request->new(
              GET => 'https://www.paypal.com/');
 my $res = $ua->request($req) || die $!;
 if ($res->is_success) {
     print "OK!\n";
 } else {
     print "Not OK!\n";
     print $res->as_string();
 }

[download]

In reply to Problem with LWP::Protocol::https::SocksChain by Gangabass

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.