помогите пожалуйста с примером
надо соединится через https (ssl) при этом посредством xml передать логин и пароль
$doc = qq[
login
pass
1.0
en
1234
];
use LWP;
$ua = LWP::UserAgent->new;
$ua -> agent("Bond, James Bond/0.07");
$req = HTTP::Request -> new ( POST => \'https://$host:$port\');
$req -> content_type (\'application/xml\');
$req -> content ($doc);
$response = $ua -> request ($req);
if ($response->is_success) { print $response->decoded_content; }
else { print $response->status_line; }
при таком варианте зависает надолго
