#!/usr/bin/perl open (FILE,"+; $hits = $hits+1; seek (FILE,0,0); print FILE $hits; close (FILE); print "Content-type: text/html\n\n"; print "Licznik\n"; print "\n"; print "

Witaj na mojej stronie!

\n"; print "Ta strona byla czytana ",$hits," razy.\n"; print "\n";