Select Code to Download

           $x->seq($key, $value, R_CURSOR) ;

           use strict ;
           use DB_File ;
...

           undef $x ;
           untie %h ;