Connection through proxy 1

[kokon]

Hi, I`m using below code to connect to website. I want to connect to this site through the proxy server (I got servers with and some servers without authentification).
Please help.

use IO::Socket;
$Mhost="[URL unfurl="true"]www.google.com";[/URL]
$Msock = new IO::Socket::INET(PeerAddr => $Mhost, PeerPort => 80, Proto => 'tcp',Timeout=>60); 
$MURL="GET [URL unfurl="true"]http://www.google.com[/URL] HTTP/1.0\n\n";
print $Msock "$MURL"; 
while($line = <$Msock>) {$buf.=$line;}
print $buf;

 

[LawnBoy]

This is how I've done it in the past:

#!/usr/bin/perl
use warnings;
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] =>'http://[i]username[/i]:[i]password[/i]@FQDN.of.proxy:port');
$req = HTTP::Request->new('GET', "[URL unfurl="true"]http://www.my_page_here.com");[/URL]
$res = $ua->request($req);

Probably not the best way, but it works...