>>466
あとは自分で書き換えて。
if ( !$now ){
@visit = ( $today, 1, 1);
}elsif ( $now ne $today ){
    @visit[0] = $today;
    @visit[1] += 1;
    @visit[3] = @visit[2];
    @visit[2] = 1;
}else{
    @visit[1] += 1;
    @visit[2] += 1;
}

print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Content-type:text/plain\n\n";
print "&total=$visit[1]&today=$visit[2]&yday=$visit[3]";