#!/usr/bin/perl

open(FIL,"+<DNovoCount.txt") || die "";
flock(FIL,2);

$Stevec = <FIL>;
$Stevec++;
seek(FIL,0,0);
print FIL $Stevec;

flock(FIL, 8);
close(FIL);

print "Location: http://torina.fe.uni-lj.si/~tomo/SloExp10/Novost-200805.zip\n\n";