Select Code to Download

#!/usr/bin/perl

...
  $sth->finish;
  %db_data;
}

my %db_data = &DB_GET('clients', 'client_id', $client_id);