grabWindowRegion(0, 0,0,64,64);

sub grabWindowRegion
{
	my $ds = new Win32::GuiTest::DibSect;

	$ds->CopyClient(shift,[@_]);
	$ds->ToClipboard();

	print Win32::Clipboard::IsBitmap() ? "Bitmap\n" : "Not Bitmap\n";
	my $image = Win32::Clipboard::GetBitmap(); 
#Same results with just Get()
	
	print Dumper $image;
	die "\n";
	# $ds->SaveAs('temp.bmp');
	# return parseBMP('temp.bmp');
}


##</code><code>##

Not Bitmap
$VAR1 = '';