#!/usr/bin/perl -w use diagnostics; use strict; use CGI; print "content-type: text/html\n\n"; my $bgcolor = CGI::param('my_color') || 'white'; print "Bilder\n"; print "

Bilder

\n"; my $bild; if( CGI::param('my_image') ne "" ) { $bild = ("" ); } else { $bild = "Här ska det
vara en bild"; } #my $bild = ""; print "
$bild
\n"; print "
\n"; ## Select image # print "\n"; ## Select färg # print "\n"; print "

\n"; my $count = CGI::param('my_count'); $count ++; print "

Sidan har laddats $count gånger\n"; print "\n"; print "

\n"; print "\n";