#!/usr/bin/perl
#
# Programm ausführbar machen:  chmod 744 cpuload.pl
# Programm ausführen:  ./cpuload.pl
# oder Eigenschaften der Datei -> Zugrifsrechte -> Datei als Programm ausführen

use Time::HiRes qw(usleep nanosleep gettimeofday);

$message = "Test\n";
$microseconds = 50000; # 50ms
# $microseconds = 50; # 50us bis 200us = unangenehmes Pfeifen

$goal = 1000; # zur Veränderung der Tonalage/Lautstärke
while (TRUE) {
for ($i=0; $i<=$goal; $i++) {
$x = 0.01;
$y = sin($x);
$y = $y + 0.00001;
}
#sleep(1);
usleep($microseconds);
# print $message;
next;
$y = $y + 0.01;
}
