A quick note: You should probably use a kill -15, not a kill -9. Better still, have 15 be the default and allow the first argument to override it - just like the killall command does.

And, of course, make sure that your perl script uses a positive 15 and not a negative one!