use strict;
use warnings;

my $time = 120;
my $D=10000;                                          
my $dt=1/$D;   
my $tt=0; 
my $rateon=1;

my $count=0;

 while($time>$tt){                   
     $tt=$tt+$dt;  
     my $rand = rand($D);
 	if(($rand)<=$rateon) {
                $count++;
 		printf("%f > %f\n", $rateon, $rand) or die $!;
        }
 }
 print "$count total" or die $!;