How to make a "runaway" script?

I'm trying to test a script that will automatically kill a certain process when it becomes a runaway.

Can anyone show me a perl script that will pretend it is a runaway? ie: it will start using up 80% or more of CPU cycles when executed?

Thanks!

 

 

 

 

Top