Well this isn't a perl answer but I am wondering why you wouldn't use NTP (network time protocol) which is designed to do exactly what you want to do...

my $chainsaw = 'Perl';