Firehose is a project mainly written in D and PERL, it's free.

a crazy way to upload faster over an asymmetric connection by downloading