Mediasync is a project mainly written in Perl, it's free.
Allow synchronization of multiple semi-distinct media libraries