#!/usr/bin/perl -w
use strict;
my %PL;
dbmopen(%PL, "pl", 0777) || die "Can't create DBM: $!";
my $count = 0;
while ($count <= 10000) {
    $PL{$count} = "$count";
    $count++;
}
print "Content-type: text/html\n\n";
print scalar(keys %PL), '/', $count, "\n";
dbmclose(%PL);