sub grabWindowRegion
{
    my $cb = new Win32::ClipBoard;
    my $ds = new Win32::GuiTest::DibSect;
    $ds->CopyClient(shift,[@_]);
    $ds->ToClipboard();
    my $image = Win32::Clipboard::GetBitmap();
    return parseBMP( $image );
}