my $gifdata = $img->gifanimbegin(1,0);
for (...) {
    ...
    $gifdata .= $gd->gifanimadd; # $gd?
    ...
}
$gifdata .= $img->gifanimend;