mirror does this, and is written in perl. it isn't particularly efficient though, it parses the output of ls -lR, which can be very slow for large directory structures.