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