You apparently know how to use Win32::API, so once you know which apis to call, you'll know how to do it.

Therefore your problem is not a Perl problem, but a Win32::API problem, and there are better forums for those than PM.