hi
I try that :
#__IWHOME__/iw-perl/bin/iwperl -w
require LWP::UserAgent;
require HTTP::Request;
my $url = '
https://www.yahoo.com';my $ua = new LWP::UserAgent;
$ua->timeout(15);
$ua->max_size(300);
$request = new HTTP::Request GET => $url;
$response = $ua->request($request);
if ($response->is_success){
print "url exist";
}else{
print $response->code;
}
exit;
And I get a code 501... I am using teamsite v6.1, perl v8.5.2 on windows.
Thanks by advance for answers