use strict;
use LWP::Simple;


my $url = "http://server:port/ws/1/console/webstart?full=true";
 

my $file = "Console.exe";


my $code = getstore($url, "$file");

print "CODE : $code\n";