gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Imager;

die "Usage: div_animgif.pl filename\n" if !-f $ARGV[0];
my $file = shift;

my @imgs = Imager->read_multi(file => $file, type=>"gif")
    or die "Cannot read: ", Imager->errstr;
for (my $i = 0; $i < scalar(@imgs); $i++) {
    my $img = $imgs[$i];
    my $out_filename = sprintf "%s_%03d.png", $file, $i;
    $img->write(file=> $out_filename, type=>"png")
        or die "Cannot write: ", $img->errstr;
}