use strict;
use warnings;
use diagnostics;
##</code><code>##

open (HANDLE, ">/path/to/file")
  or die "Cannot open: $!\n"
##</code><code>##

open (COUNTING, ">/path/to/counter.txt")
  or die "Cannot open: $!\n";
print COUNTING $myvar;
close COUNTING;
##</code><code>##

my $query = CGI->new;
print header(), 
      $query->start_html(-title=>'My Counter',
                         -author=>'you@domain.com',
                         -base=>'true'
                         -background=>'#7fb6bb');