Select Code to Download

#!/usr/bin/perl5
use CGI::Carp qw(fatalsToBrowser);
...
my $count = 0;
print "There are ", scalar keys %PL, "items in the DB.\n";
dbmclose(%PL);