This is not really a perl problem. The real problem is which WINAPI funtions you have to call or which messages you have to send to get the OS to do what you want. Once you know that, implementing in perl will become trivial.