Have you tried calling GetBitmap() as a instance method rather than a class method:$image = $clip->GetBitmap() or die .. ;

Have you tried: $clip->WaitForChange(); prior to GetBitmap()?

Have you tried undefing and re-creating the clipboard object when a failure occurs?

RETRY:
my $tries = 0;
my $image = $clip->GetBitmap() or do {
    undef $clip;
    $clip = Win32::Clipboard->new();
    goto RETRY unless ++$retries > 5;
}
...
[download]