use Mac::Knife;

my $knife = new Mac::Knife();

$knife->slash($pid);  # kill -TERM
$knife->filet($pid);  # kill -KILL
$knife->sharpen();    # renice -10 $$
[download]

:-D

--J