File Perl

#Symbol        Open For
#+<            Read first, then write
#+>            Write first, then read
#+>>           Append first, then read
open(FH, "+$count=;           
print "You are visitor number $count.";
$count++;
seek(FH, 0,0) || die;  
print FH $count;       
close(FH);