Select Code to Download

#======== Insert or Update pagecounter appropriately, then display it 
+==========
my ($pagename) = ($0 =~ m{([^/\\]+?)(?:\.[^/\\.]+)?$});
...

my ($counter) = $db->selectrow_array('SELECT pagecounter FROM counters
+ WHERE pagename = ?',
undef, $pagename);

include ("counter.pl");