...
while (1) {
   sleep rand(5);
   my $r = rand(100);
   for (my $i = 0; $i < $r; $i++) {
      print "die you filthy low life scum bag, die!!!";
   }
}