Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $db = DBM::Deep->new( -filename =>"positions.db", pack_size => 'lar
+ge');
$db->import(\%positions_hash);
$db->optimize();