(delete $TK->{img}{$name})->delete();
        $TK->{gui}{can}->delete('all');

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use Tk;

{
    my $TK = {};
    $TK->{gui}{mw} = MainWindow::->new();
    _build_gui($TK);

    my ($iter, $id) = (0);
    $id = $TK->{gui}{mw}->repeat(500, sub {
        $TK->{gui}{start}->invoke();
        $TK->{gui}{mw}->after(200, sub {
            (shift @{$TK->{gui}{quits}})->invoke();
        });
        $id->cancel if $iter++ > 1_000;
    });
}

MainLoop;

sub _build_gui {
    my ($TK) = @_;

    $TK->{gui}{mw}->configure(-title => 'Test Tk::Photo Memory Leak');
    $TK->{gui}{mw}->geometry('384x216+100+150');
    _build_controls($TK);

    return;
}

sub _build_controls {
    my ($TK) = @_;

    $TK->{gui}{frame} =  $TK->{gui}{mw}->Frame()->pack();

    $TK->{gui}{start} = $TK->{gui}{frame}->Button(
        -text => 'Start', -command => sub { _popup($TK) }
    )->pack();

    $TK->{gui}{frame}->Button(
        -text => 'Exit', -command => sub { exit }
    )->pack();

    return;
}

sub _popup {
    my ($TK) = @_;

    $TK->{img}{id} = 0 unless exists $TK->{img}{id};
    my ($w, $h) = (400, 300);

    $TK->{gui}{top} = $TK->{gui}{frame}->Toplevel();
    $TK->{gui}{top}->geometry("${w}x$h+500+550");
    $TK->{gui}{top}->overrideredirect(1);
    push @{$TK->{gui}{quits}}, $TK->{gui}{top}->Button(-text => 'Quit'
    )->pack(-side => 'bottom');
    $TK->{gui}{can} = $TK->{gui}{top}->Canvas(
    )->pack(-anchor => 'center', -fill => 'both', -expand => 1);
    my $name = 'earth' . $TK->{img}{id}++;
    $TK->{img}{$name} = $TK->{gui}{top}->Photo(
        $name, -file => Tk->findINC('demos/images/earth.gif')
    );
    $TK->{gui}{can}->createImage(
        $w/2, $h/2, -image => $name, -anchor => 'center'
    );

    $TK->{gui}{quits}[-1]->configure(-command => sub {
        (delete $TK->{img}{$name})->delete();
        $TK->{gui}{can}->delete('all');
        $TK->{gui}{top}->destroy();
    });

    return;
}