#!/usr/bin/perl
use CGI;
use CGI qw(:standard);

my $REMOTE_ADDR = $ENV{'REMOTE_ADDR'};
my $st=param('st');
my $count=0;
my $LAST;
my $warda=0;

open (FILE,"../../data/zaehl.dat") || die "Can't Open ../../data/zaehl.dat: $!\n";
	$count=<FILE>;
close(FILE);



$st=$st-1;
(my $ausg=$count) =~ s/\d{0,$st}(\d?)\d*/$1/;
chomp $ausg;
print "Content-type: image/gif\n\n";
my $gif="../gifs/counter/${ausg}num.gif";
open (FILE,"$gif") || die "$gif: $!\n";
	binmode FILE;
	print <FILE>;
close(FILE);