my $TAIoffset = -37;
...
my $endtime = time + $TAIoffset;