use Win32::Clipboard;
if(Win32::Clipboard::IsBitmap) {
$BUFFER =
open BMP, ">test.bmp";
binmode BMP;
print BMP Win32::Clipboard::Get();
close BMP;
undef $BUFFER;
print "data written to test.bmp\n";
} else {
print "clipboard does not contain a bitmap!\n";
}