Server-push animation

serverpush.pl

#!/usr/bin/perl

use strict;
use warning;
use GD;

$images = "/path/to/images";
$header = "Content-type: multipart/x-mixed-replace; boundary=ddc072ce-3b52-4704-9fef-abf661a13d43\n";
$boundary = "\n--ddc072ce-3b52-4704-9fef-abf661a13d43\n";
$giftype = "Content-type: image/gif\n\n";
print $header;
print $boundary;
$i = 1;
while (1) {
  sleep 1;
  print $giftype;
  open(GIFH, "< ${images}/frame${i}.gif");
  $img = newFromGif GD::Image(GIFH);
  close(GIFH);
  print $img->gif;
  print $boundary;
  if ($i == 21) {
    $i = 1;
  } else {
    $i++;
  }
}