Not that I would EVER do this for something that runs once a day - you can always do this:

while (1) {
    my $loop_start = time;
    
    #.... code

    my $sleep_time = 86400 - (time - $loop_start);
    sleep ($sleep_time);
}
[download]

TIMTOWTDI!

$ perldoc perldoc