#!/usr/bin/perl

open(FIL,"+<NDLoadWce.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/Sudoku/SudokuCE.exe\n\n";
print "Location: http://matematika.fe.uni-lj.si/people/tomo/homepage/Sudoku/SudokuCE.exe\n\n";