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