$ftp_md_src_srv = Net::FTP->new($dev_adr, Debug => 0)
                             or print LOG "\n$message\ncannot connect to DEV Srv. $dev_adr: $@End\n &go_next";