#!/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++);
                    }
        }        

#!/usr/bin/perl
use strict;
use warnings;

my $cnt = 2000;      # Gesamtanzahl
my $hours = 36;      # Gesamtzeit in Std


my $time = $hours * 60 * 60;      # Gesamtzeit in Sekunden
die "Zu viele Zeitpunkte!" if $cnt > $time; # Sonst gaebe es eine Endlosschleife!

print "Durchschnittliche Wartezeit der Events: ", $time/$cnt, " Sek.\n";

my %evt_table;         # Ereigniszeitpunkte

# $cnt Events auswuerfeln
for (1 .. $cnt) {
    my $evt = int(rand($time));
    redo if $evt_table{$evt}; # Schon besetzt? => Neu
    $evt_table{$evt} = 1;
}

# Testausgabe der Zeitpunkte
# print "$_ " for sort { $a <=> $b } keys %evt_table;


my $t0 = time();      # Startzeitpunkt
print "Start um ", scalar(localtime($t0)), "\n";

for (sort { $a <=> $b } keys %evt_table) {
    my $delay = ($t0 + $_) - time();  # Wartezeit
    sleep $delay if $delay > 0;       # wenn Wartezeit, dann schlafen

    ### Hier Event ausloesen
    print "Event mit Zeit $_ um ", scalar(localtime()), "\n";
    ###
}