Haven't used it myself, but i guess what you are looking for is Net::IRC. It seems to support DCC send (at least its submodule Net::IRC::DCC).