#!/usr/bin/perl
use strict;
use vars qw ($file $DELAY);
########## CONFIG
$file = "lcd4linux"; # .png is appended
$DELAY = 0; # delay in seconds
# if delay is zero, file is sent when modified.
#################
use CGI qw/:push -nph/;
$| = 1;
my ($mtime, $nmtime, $size, $nsize);
(undef, undef, undef, undef, undef, undef, undef, $size, undef,
$mtime) = stat "$file.png";
print multipart_init(-boundary=>'----------------here we go!');
while (1) {
print multipart_start(-type=>