jck:

Perhaps the server just isn't sync'ed to a time standard? A phone call might get them to fix the time. If not, you could always write a subroutine that you use to get the time, like:

sub fixtime {
    # Server is off by 18:10!
    my $TimeOffset = 18*60 + 10;
    return time + $TimeOffset;
}
[download]

Then you can call fixtime instead of time whenever you need it. If the server drifts further, you'll have to update the value of $TimeOffset, though...

--roboticus