Esperti di Perl

[magiufi]

perchè questo contatore di accessi non funziona:

#!/usr/bin/perl

open FILE, "./contatore";
$riga=$_;
print "Content-Type: text/html\n\n";
print ++$riga;
open FILE, ">./contatore";
print FILE $riga;

praticamente succede che scrive 1, e poi non va avanti.
cosa sbaglio?
Grazie!

[Qu@ker]

#!/usr/bin/perl
open FILE, "./contatore";
$riga = <FILE>;
print "Content-Type: text/html\n\n";
print ++$riga, "\n";
open FILE, ">./contatore";
print FILE $riga;

[magiufi]

Grazie!! Ora funziona
Ciao
Marco