#!/usr/bin/perl -w

 use Fcntl;
 use SDBM_File;

 my %db;
 tie (%db, 'SDBM_File', './t.db', O_RDWR | O_CREAT, 0666);

 my $s=scalar keys (%db);
 print "s=$s\n";
 $db{39485}=1;
 $db{354345}=1;

 $s=scalar keys (%db);
 print "s=$s\n";
 foreach (keys %db){
  print "  \"$_\"\n";
 }
 untie %db;