in reply to use less 'CPU';

*nix version 
use POSIX qw(nice);
nice(10);

[download]
;)

In Section Cool Uses for Perl