You can find kill.vbs from the windows NT reskit here if you don't have the reskit. Either convert that to Perl using OLE or just call it with a system call and the args it wants.

kill.vbs  /X <processid> [/S <server>] [/U <username>] [/W <password>]
+ [/O <outfile>]
[download]