Select Code to Download

package SubscriberList;

use strict;
...
  }
1;

# test.pl
use SubscriberList;

...
              last_name  => 'Binks',
               );

use Data::Dumper;
use DB_File;
tie %hash, 'DB_File', 'test.db';
...
############
Ouput
$VAR1 = {};