Perl version of node codesync