gather      => sub {
    if (@_ == 1) {
      print "\r", $count++;
    }
    else {
      if (!defined $gifdata) {
        $image    = GD::Image-> newFromGifData( shift @{ $_[1] } );
        $gifdata  = $image-> gifanimbegin( 0,0 );
        $gifdata .= $image-> gifanimadd( 1,0,0,1,1 );
      }
      while ( my $data = shift @{ $_[1] } ) {
        my $frame = GD::Image-> newFromGifData( $data );
        $gifdata .= $frame-> gifanimadd( 1,0,0,1,1 );
      }
    }
  },