#!/usr/local/bin/perl
    ($sec,$min,$hour,$mday,$mon,$year)=localtime(time()+$time_ctrl*60*60);
    $mon=$mon+1;
    if ($sec <10) {$sec ="0$sec";}
    if ($min <10) {$min ="0$min";}
    if ($mon <10) {$mon ="0$mon";}
    if ($hour<10) {$hour="0$hour";}
    if ($mday<10) {$mday="0$mday";}
    $Date = "$year/$mon/$mday $hour\:$min\:$sec";

    $userip = $ENV{'REMOTE_ADDR'};
    local $filename,$mypath;
    $filename=__FILE__;
    if ($filename=~/\\/) { $filename=~ s/\\/\//g;}
    if ($filename) {
        $mypath=substr($filename,0,rindex($filename,"/"));
    }else{
        $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
        $mypath=~ s/\\/\//g;
    }
    open (DATA,">>$mypath/counter.dat");
    @data=<DATA>;
    $page=$ENV{'HTTP_REFERER'};
    print DATA "$page | $userip | $Date\n";
    close(DATA);