#!/usr/bin/perl -w

# demo-stran.cgi

use strict;
use CGI;

my $cgi = new CGI;

print $cgi->header(-type => 'text/html',
                      -charset => 'UTF-8');

print $cgi->start_html(
    -title => 'Stran',
    -style => {
        -src => 'stil.css'
    },
    -head => $cgi->Link({
        -rel => 'shortcut icon',
        -href => 'favicon.ico',
        -type => 'image/icon'}),
    -script => {
        -language => 'javascript',
        -src => 'javascript.js'
    }
),
"\n",
$cgi->div({-id => 'naslov'}, "\n", $cgi->h1('Naslov'), "\n"), "\n",
"\n",
$cgi->div({-id => 'vsebina'}, "\n", $cgi->p('EOF'), "\n"), "\n",
"\n",
$cgi->div({-id => 'bak'}, "\n", $cgi->p($cgi->a({-href => 'https://fizika.zf42.org/'}, "Nazaj")), "\n"), "\n";

print $cgi->end_html, "\n";