#!/usr/bin/perl
open (gbfile, "book.txt");
seek (gbfile,0,0);
$sum=0;
$brojo=0;
for(i=0: i<11; i++) {seek (gbfile,i,0); $sum=$_ * i; $brojo++}
$rez14=$sum/$brojo;
print "Content-type: text/html\n\n";
print "\n";
print "Prosjecna ocjena dosadasnjeg glasovanja za F14: $rez14
\n";
$sum=0;
$brojo=0;
for(i=10: i<21; i++) {seek (gbfile,i,0); $sum=$_ * i; $brojo++}
$rez18=$sum/$brojo;
print "Content-type: text/html\n\n";
print "\n";
print "Prosjecna ocjena dosadasnjeg glasovanja za F18: $rez18
\n";
close (gbfile);