use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', $ARGV[0]);
my $response = $ua->request($request);
if ($response->is_success) {
print $response->content;
} else {
print $response->error_as_HTML;
}
I am executing this pgm on VMS .( defined the logical http_proxy . )
But it is giving this error.
<HTML>
<HEAD><TITLE>An Error Occurred</TITLE></HEAD>
<BODY>
<H1>An Error Occurred</H1>
500 Can't connect to www.infy.com:80 (Timeout)
</BODY>
</HTML>
any setup should i do on VMS before executing this pgm .
--jude
