Select Code to Download

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

#!/usr/bin/env perl

...

    return;
}