Select Code to Download

  #!/usr/bin/perl
  use BerkeleyDB;
...

  print "db contains ", scalar(keys %hash), " entries\n";
  print map { "  $_ => $hash{$_}\n" } sort keys %hash;

  #!/usr/bin/perl
  use DB_File;
...

  print "$file has ", scalar(keys %hash), " entries\n";
  print map { "  $_ => $hash{$_}\n" } sort keys %hash;

  type parameter is not a reference at /usr/lib/perl5/5.6.1/i386-linux
+/DB_File.pm line 262.