use strict;
use LWP::UserAgent;

my $g = LWP::UserAgent->new(show_progress => 1);
$g->proxy(['http','ftp','https'], 'http://proxy.company.com:8080');
my $gr = HTTP::Request->new(POST => 'https://remote.othercomp.com/SessionManagement/PublicSessionManagementService.svc?wsdl');
$gr->header('Content-Length' => '0');
my $gs = $g->request($gr);

print $gs->status_line, "\n";
print $gs->content, "------- end content -------\n";