#!/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";