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";
}