perl skript der returnerer billed

Hvis du på din web side laver et IMG tag der ser således ud:
  <IMG SRC="/cgi-bin/nph-webgrab.cgi" ALT="Bla bla" TITLE="Bla bla">
samt et script i cgi-bin med navnet nph-webgrab.cgi der ser således ud:
----------------------------------------
#!/usr/bin/perl

print "HTTP/1.0 200 Document follows\n";
print "Content-type: multipart/x-mixed-replace;boundary=goober\n\n";

while(true)
{
  print "\n--goober\n";
  print "Content-type: image/gif\n\n";

  open(IN, "/tmp/webcam.jpg"); # Eller hvad dit billede nu hedder

  while (read(IN, $buffer, 8192))
  {
      print $buffer;
  }
  close("/tmp/webcam.jpg");
  sleep( 1 );
}

print "\n--goober--\n";

exit 0;
----------------------------------------

Bemærk at ovenstående er tænkt som et web cam eksempel med en rimelig heftig opdaterings frekvens. Måske har du slet ikke brug for while løkken, man den er nemt fjernet.