#! perl -slw
use strict;
use Win32::Clipboard;

my $cb = Win32::Clipboard->new();

print $cb->IsBitmap() ? 'Yes' : 'No';

my $bmp = $cb->GetBitmap;

open O, '>:raw', 'junk.bmp' or die $!;
print O $bmp;
close O;

system 'junk.bmp';

__END__
c:\test>clipBMP.pl
Yes

c:\test>perl -MWin32::Clipboard -E"say $Win32::Clipboard::VERSION"
0.55