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

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

my $bmp = $cb->GetBitmap;

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

system 'junk.bmp';