code:

#!/export/ieapps/common/perl5/perl-5.8.4/bin/perl
# getwsd2.pl - LWP demo - downloads a radware WSD config ascii file.
# utilizes HTTPS,login credentials and writes directly to external
content file.
# usage: lwpdemo.pl <devname> <devipaddr> <port> <uid> <passw>
# output: /export/ieapps/local/test/<devName.asc>
use strict;
use warnings;
use LWP;
 ########################################
#####
my $urlConfigFile = '/dynamic/File/Configuration/ReceivefromDevice' ;
my $urlDeviceinfo = '/dynamic/Device/DeviceInformation';
my ($ua, $httpReq, $httpResp, $url, $baseUrl, $credUrl);
my ($devName, $devIP, $port, $UID, $upassw);
my ($statusLine, $statusCode, $statusMsg, $contentResponse);
my $asciiFile = "/export/ieapps/local/test/";


 ########################################
#########

if (@ARGV == 5) {		# if there are 5 arguments
$devName = $ARGV[0];
$devIP = $ARGV[1];
$port = $ARGV[2];
$UID = $ARGV[3];
$upassw = $ARGV[4];
}
else {
die "Error 01:  Usage: $0 <devname> <devipaddr> <port> <uid>
<passw>\n";
}
print "Processing devName [$devName] ip addr [$devIP].\n";
print "Using libwww-perl-$LWP::VERSION\n";
$asciiFile .= "$devName.asc";
print "Output file is [$asciiFile].\n";
$baseUrl = "https://$devIP:$port";			# create base URL
$credUrl = "$devIP:$port";					# create URL for credentials
print "Base URL [$baseUrl]\n";
 ########################################
###############################
# start LWP Processing
 ########################################
#################################
$ua = LWP::UserAgent->new;				# create new user agent object
$ua->timeout(15);						# set user agent timeout to 15 seconds
$url = "$baseUrl$urlDeviceinfo";		# set full url for device info

print "Setting Credentials using credurl[$credUrl]\n";
$ua->credentials($credUrl,"Radware",$UID => $upassw);

print "\n\nNow get the WSD config ascii file.\n";
$url = "$baseUrl$urlConfigFile";		# create URL for getting config ascii
file
print "Submitting browser request using url [$url].\n";
$httpResp = $ua->post($url, [DownloadFormat => 'ascii'],
':content_file' => $asciiFile);		# save memory, write directly
to file
$statusLine = $httpResp->status_line();
$statusCode = $httpResp->code();
$statusMsg = $httpResp->message();
print "HTTP Response 2: StatusLine[$statusLine] Code[$statusCode]
Message[$statusMsg]\n";
if ($httpResp->is_success) {
print "Request OK.\n";
}
else {
die "Request failed.\n";
}

code:

dsym03z>./getwsd1.pl device-b 10.10.10.20 1900 admin admin
Processing devName [device-b] ip addr [10.10.10.20].
Using libwww-perl-5.805
Output file is [/export/ieapps/local/test/device-b.asc].
Base URL [https://10.10.10.20:1900]
Setting Credentials using credurl[10.10.10.20:1900]
Submitting initial browser request using url
[https://10.10.10.20:1900/dynamic/De...viceInformation].
HTTP Response 1: StatusLine[200 OK] Code[200] Message[OK]
Request OK.
Results:


Now get the WSD config ascii file.
Submitting browser request using url
[https://10.10.10.20:1900/dynamic/Fi...ceivefromDevice].
HTTP Response 2: StatusLine[500 EOF] Code[500] Message[EOF]
Request failed.