There are a few readily available modules that might help you with your question. One of them is the
Win32::Process. You can read an excellent piece of documentation (including sample code)
here.
Remember,
Google is also your friend in this. Here are a few news group threads that seem to relate to a similar problem (or at least have dose of extra code for you to glance over ;):
I hope this helps you, Hopes. ;)
_____________________
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;$_=["ps -e -o pid | "," $2 | "," -v "," "]`@$_`?{print"
++ $1"}:{print"- $1"}&&`rm $1`;print"\n";}