#!/usr/local/bin/perl -w use CGI; my $cgi = new CGI(); my $page = $cgi->param("page") || 0; my $start= $page * 256; $table = make_table($start, 16,16); print < Character Set $table
&#x
x 		dec
hex 		what for?       /** (c) 2000 das buero am draht gmbh mfx\@dasburo.com **/  
EOF sub make_table { my ($offset, $w, $h) = @_; my $acc = ""; foreach $j (0 .. $h-1){ $acc .= ""; foreach $i (0 .. $w-1){ my $bg = ($i + $j) & 1 ? "#cccccc" : "#ffffff"; my $n = $i + $j * $w + $offset; my $nh = sprintf("%02x", $n); my $ch = chr($n); if($n >= 256){ $ch = ""; } $acc .= "&#$n; 
$ch "; $acc .= "\U$n
$nh"; } $acc .= "\n"; } return $acc; }