Thank you all for the hints on other programs. But let me ask the main question in another way:

How would you reimplement rsync (single file sync level) in perl? What modules would you use for an scalable, standardized high level transport protocol?