Help for this page

Select Code to Download

Select or download this

use threads;

...
        threads->yield();
        select undef,undef,undef,0.2;
}

Select or download this

micha@laptop /proc $ perl -e 'while(1){system("cat $ARGV[0]/statm");sl
+eep 1;}' 24857
20376 11566 394 289 0 19667 0
...
21150 12354 394 289 0 20441 0
21150 12354 394 289 0 20441 0
45738 12366 394 289 0 45029 0