use Win32::GUI;
use Win32::GUI::DIBitmap;
use Win32::GuiTest qw(FindWindowLike GetWindowText);

my @windows = FindWindowLike(0, qr/^search.cpan.org/);

my $hdc = Win32::GUI::DC->new($windows[0]);

print "hcd is $hdc\n";
print "Window name is '" . GetWindowText($windows[0]) . "'\n";

my $bmap = newFromDC Win32::GUI::DIBitmap ($hdc);

print "bmap is $bmap\n";

##</code><code>##

C:\apps\Perl\dev>perl grabscreen.pl
hcd is Win32::GUI::DC=HASH(0x224dbc)
Window name is 'search.cpan.org: The CPAN Search Site - Microsoft Internet Explorer'
bmap is