I have a data intensive script. During the Heavy CPU part I want to drop the run-time priority level low, then put it back to 0 at another time. Is this how you can change the run-time priority level of a script from within the script itself?

#!/usr/bin/perl -w

use strict;

#  What's my priority level?
my $pri = getpriority(0, 0);
print "My priority level is: $pri\n";

#  Set priority level 6 for this script.
setpriority(0, 0, 6);

#  What's my new priority level?
$pri = getpriority(0, 0);
print "My priority level is: $pri\n";
[download]