while (1) {
    # get the date
    if ((localtime)[6] eq 4) {
        # do processing
        ...
    } else {
        sleep 86400;
    }
}