$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";

... = Net::FTP->new() or print "Test" and do_next();