Select Code to Download

......
sub DB{
...
    || die;
}
......

$|=1;
use BerkeleyDB;
...
    print "$k\t$v\n";
}
untie $db;