use Win32::GUI;
use Win32::GUI::DIBitmap;
use Win32::GuiTest qw(FindWindowLike GetWindowText GetClassName);
my @windows = FindWindowLike(0, qr/^Linux/);
print "windows[0] = $windows[0]\n";

my $fakeit = {};
bless($fakeit,GetClassName($windows[0]));
$fakeit->{-handle} = $windows[0];
$fakeit->{-name} = GetWindowText($windows[0]);
print "FAKEIT = " . $fakeit->{-handle} . "\n";
my $hdc3 = Win32::GUI::DC->new($fakeit);

print "hcd3 is $hdc3\n";
print "Window name is '" . GetWindowText($windows[0]) . "'\n";
for my $x(keys %{$hdc3})
{
    print"$x --> $hdc3->{$x}\n";
}
print "HDC3 ERROR: $^E\n"
    unless my $bmap3 = Win32::GUI::DIBitmap->newFromDC($hdc3);
print "bmap3 is $bmap3\n";
my $test3 = $bmap3->SaveToFile("c:/z3.bmp");
print "TEST3: $test3\n";