Select Code to Download

# !C:\Perl\bin
use strict;
...
print $useragent->proxy('http'),"\n";
print $response->status_line, "\n";
print "Err : $err \n";

http://192.168.5.5:8080/
200 OK
Err : (9)(Bad file descriptor)(0)()