use strict;
use warnings;
use feature 'say';
use Time::HiRes 'time';
use Imager ':handy';
use Tk;
use Tk::Animation;
use Tk::Photo;
use MIME::Base64;

my $path = 'Animated_GIF_cheloVechek.gif';
die 'image not found' unless -e $path;
my $size = -s $path;

my $mw = MainWindow-> new;
$mw-> configure( -title => $path );
my $top = $mw-> Frame-> pack;

my $start = time;
my $image_1 = $mw-> Animation( -format => 'gif', -file => $path );
print 'Tk::Animation took ', time - $start,
    " seconds for $size bytes \n";
$top-> Label( -image => $image_1 )-> pack;
$image_1-> start_animation;

$start = time;
my $backdrop;
my @frames = map {
    if ( $backdrop ) {              # not 1st?
        my $mask = $_-> copy;
        my @mask_plt = map NC( 255, 255, 255 ), $mask-> getcolors;
        my $trans_idx = $mask-> tags( name => 'gif_trans_index' );
        $mask_plt[ $trans_idx ] = NC( 0, 0, 0 ) if $trans_idx;
        $mask-> setcolors( colors => \@mask_plt );
        $backdrop-> compose( src => $_, mask => $mask );
    }
    else {
        $backdrop = $_
    }

    $backdrop-> write( data => \my $data, type => 'bmp' );
    $mw-> Photo( -data => encode_base64( $data ));
} Imager-> read_multi( file => $path );

my $image_2 = $mw-> Animation;
$image_2-> add_frame( @frames );
print 'Imager & Tk::Animation took ', time - $start,
    " seconds for $size bytes \n";

$top-> Label( -image => $image_2 )-> pack;
$image_2-> start_animation;

MainLoop;

__END__

Tk::Animation took 10.3439958095551 seconds for 10740455 bytes
Imager & Tk::Animation took 1.12088799476624 seconds for 10740455 bytes