use Win32::API;
use Win32::guiTest qw( :ALL );

my ($repMainWindow) = FindWindowLike(undef, "Caption") or die $!;
	
Win32::API::->Import("user32","DWORD GetWindowThreadProcessId( HWND hWnd, LPDWORD lpdwProcessId)") or die $^E;

my $pidLPDWORDStruct = pack( "L", 0 );
GetWindowThreadProcessId($repMainWindow, $pidLPDWORDStruct);
my ($pid) = unpack ("L", $pidLPDWORDStruct);