#!/usr/bin/perl^M
^M
#^M
#лНДСКЭ ОНДОХЯЙХ МЮ Dr.Web AV-desk^M
#v.2.1 (21/09/2009)^M
#By Cell & Elite^M
^M
$VER=50.28;^M
^M
use LWP;
use XML::Simple;^M
use Data::Dumper;^M
use Digest::MD5 qw(md5 md5_hex md5_base64);^M
^M
^M
$av_server="inet.server:9080";^M
$av_realm="XMLAPI";^M
$av_admin="admin";^M
$av_passwd="bla-bla-bla";^M
$av_api_link="
http://inet.server:9080/api/2.0/";^M
^M
$srvs_numb=2;^M
^M
^M
Извиняюсь что так, но копировал прямо из патти