Hi and Thank for the link,
Was my thread, vry interesting too - but i didn't think I could start from there anew.
Anyway, I tried adding the sfprint debug, doesn't work for me yet.
# !C:\Perl\bin
use strict;
use warnings;
use LWP::UserAgent;
@ARGV = qw[ http://www.eserve.com.sa/ ];
my $url = shift or die "URL expected\n";
my $useragent = LWP::UserAgent->new;
$useragent->proxy(['http', 'ftp','https'], 'http://192.168.5.5:8080/')
+;
$useragent -> timeout( 20 );
my $request = HTTP::Request->new( GET => $url );
my $response = $useragent->request($request);
my $err = sprintf "(%d)(%s)(%d)(%s)\n", $!,$!,$^E,$^E;
print $useragent->proxy('http'),"\n";
print $response->status_line, "\n";
print "Err : $err \n";
I get this error
http://192.168.5.5:8080/
200 OK
Err : (9)(Bad file descriptor)(0)()
Seems it ran everything alrights, something simple here I must be missing
|