#!/usr/bin/perl -w
use strict;
use CGI::Debug;

open CNT, "cnt.txt" or print "Kan inte öppna filen: $!\n";
my $cnt = <CNT>;
$cnt ++;
close CNT;

open CNT, ">cnt.txt" or print "Kan inte skriva till filen: $!\n";
print CNT $cnt;
close CNT;


my @bildlista = ( '/~peter/projekt/bilder/musik.gif',
		  '/~peter/projekt/bilder/navi.gif',
		  '/~peter/projekt/bilder/calicon.gif',
		  '/~peter/projekt/bilder/splani.gif',
		  );

my $bild = $cnt % ($#bildlista+1);

print "Content-type: text/html\n\n";

print "<img alt=\"Fin bild\" src=\"$bildlista[$bild]\">\n";