#!h:\bin\xampp\perl\bin\perl.exe print "Content-type: text/html\n\n"; print <

Teszt CGI program

EOT open FAJLNEV, "<", "filenev.txt" or die $!; $sor = ; print $sor; open FILEID, ">", "filenev.txt" or die $!; print FILEID ++$sor; close(FILEID); print < EOT