use Win32::GuiTest qw( FindWindowLike );
use strict;
my @Mhnds = FindWindowLike( undef, “^Google Talk” );
if( !@Mhnds ){
die “Cannot find Messenger Runningn”;
}else{
printf( “handle of Messenger is %xn”, $Mhnds[ 0 ] );
}