Just as a "Thinking Outside the Box" exercise, you can always get the time from the NIST, available from any and all of the mirrors mentioned here.
in reply to Obtaining The Exact Time
*shrug* It just happens to be something I'm working on for another project.
my $host = '220.127.116.11';
my $port = '13';
my $sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'TCP');
die "Couldn't connect to $host on $port: $!\n" unless $sock;
my $time = scalar <$sock>;
# $time has the format:
#JJJJJ YR-MO-DA HH:MM:SS TT L H msADV UTC(NIST) OTM
Flex the Geek