while (1) {
    my $start_time = time();

    ## do stuff here

    sleep 3600 - time() + $start_time;
}
[download]