Extract gif and convert these frame into png

gif.pl

#!perl
use strict;
use warnings;

use Imager;

my $input = shift or die "Usage: $0 inputfile";

my $imager = Imager->new;
my @imgs = $imager->read_multi(file => $input) or $imager->errstr;
my $i = 1;

for my $img (@imgs) {
    my $output = sprintf "%d.png", $i++;
    $img->write(file => $output, type => 'png') or die $img->errstr;
}