CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Page counter
#!/usr/bin/perl
use CGI;
$co = new CGI;
open (COUNT, "    or die "Could not open counter data file.";
$count = ;
close COUNT;
$count++;
open (COUNT, ">count.dat");
print COUNT $count;
close COUNT;
print 
$co->header,
$co->start_html(
    -title=>'Counter Example', 
    -author=>'your Name', 
    -BGCOLOR=>'white', 
),
$co->center($co->h1('Counter Example')),
$co->p,
$co->center($co->h3("Current count: ", $count)),
$co->p,
$co->center($co->h3("Reload the page to update the count")),
$co->end_html;