#! c:/perl/bin/perl
#
print "Content-Type:text/html\n\n";
$zero = 0;
$end = 65535;
$offset = 4000;
if ($ENV{"REQUEST_METHOD"} eq "POST"){
read(STDIN,$data,$ENV{"CONTENT_LENGTH"});
} else {
$data = $ENV{"QUERY_STRING"};
}
@tmparry=split(/&/,$data);
foreach $string (@tmparry){
($key,$value)=split(/=/,$string);
$value =~ tr/+/ /;
$all{"$key"}=$value;
}
if ($all{from} eq 'all'){
$from = $zero;
$to = $end;
} else {
$from = $all{from};
$to = $from + $offset;
}
print "\n";
&showlist;
print "\n";
for($i=$from;$i<$to;$i=$i+16){
print "\n";
for($j=0;$j<=7;$j=$j+1){
&display;
}
print "
\n";
print "\n";
for($j=8;$j<=15;$j=$j+1){
&display;
}
print "
\n";
}
print "
";
&showlist;
print "\n";
exit;
sub showlist {
for($i=$zero;$i<=$end;$i=$i+$offset){
print "$i \n";
}
print "All(3.5MB) \n";
}
sub display {
$x=$i+$j;
print "";
# printf("%d:%x | \n",$x,$x);
printf("&#%d; | \n",$x);
print "&#$x;";
print " | \n";
}