my $endTime = time() + 3600;
while( 1 ) {
# Do stuff,
# Do more stuff
# And more
# And more
# And more
# And more
    sleep 1 while time() < $endtime;
    $endtime = time() + 3600;
}