Looks like you could use this article to help http://www.perl.com/pub/2005/08/11/win32guitest.html

Assuming MyMobileR gives you a real window, everything in the article should apply.