#!/usr/bin/perl

use CGI::Fast;
use IPC::ShareLite;


my $share = IPC::ShareLite->new(
    -key        => 0xBADC0DE,
    -create     => 'yes',
    -destroy    => 'no',
);

while ( CGI::Fast->new() ) {
    print "Content-type: text/html\n\n";
    my $x = $share->fetch;
    $x++;
    $share->store($x);
    print $x;
}