rsync algorithm in perl

rsync algorithm in perl

For one of my project, I want to create rsync based file transfer using IO
sockets, I cannot use native rsync has it is blocked in most of the
servers. The code was intended to be created in perl . Before inventing
the wheel I went through the CPAN and did research to find resuable one
but I am not in success.
Following things are planning to add in the code.
Find directory and files
Find the mtime , md5 checksum and weak rolling checksum ( both local and
remote)
Use IO sockets to transfer
anything I am missing. Any pointer will be highly appreciated.