nice -n 10 perlscript.pl
# or, if the process is already running
renice 10 -p <PID>

##</code><code>##

use BSD::Resource;
my $success = setpriority(0,10);