it would be fairly simple to write something like this with sockets, unless you're working with HUGE files.

you could even URL-escape the entire file and use LWP::UserAgent to transfer them via http (i have seen it done before, though i certainly wouldnt recommend it in most cases).