### random_visitor_th
1 #!/usr/bin/perl
2 srand ($$ ^ time);
3 $VISITOR = int rand 100_000;
4 {
5   next if $VISITOR =~ s/1\d$/$&th/; # 10-19
6   next if $VISITOR =~ s/1$/1st/; # 1
7   next if $VISITOR =~ s/2$/2nd/; # 2
8   next if $VISITOR =~ s/3$/3rd/; # 3
9   next if $VISITOR =~ s/\d$/$&th/; # everything else
10 }
11 print <<"EOT";
12 Content-type: text/html
13 
14 <img src="/cgi/bigword?$VISITOR" alt="$VISITOR">
15 EOT