#!/usr/bin/perl

    use strict;
    use warnings;
    
    my $run_time = time;
    my $duration = 48; # Stunden
    my $interval = 0,
    my ($cnt, $the_time);
    
    my @interval = (2, 4, 8, 10); # Minuten
    
    my $sub = sub {
        my $cnt = shift;
        open FILE, "> AbsolutePath/log_file.dat" or die $!;
        print FILE $cnt . "\n";
        close FILE;
    };

    $sub->(1);
    
        while ((time - $run_time) <= ($duration * 3600)) {             
            $the_time = (time - (stat("AbsolutePath/log_file.dat"))[9]);

            $the_time < $interval
                ?   do {
                        sleep(($interval - $the_time));
                        next;
                    }
                :   do {
                        # für diesen Zweck sollte
                        do "AbsolutePath/cgi-bin/the_script.pl" or die $!;
                        # ausreichend sein - wenn nicht dann mit fork() oder system() arbeiten
                        
                        $interval = (shift(@interval) * 60);
                        push @interval, ($interval / 60);
                        $sub->($cnt++);
                    }
        }