Select Code to Download

sub _do_proc {
    my $self = shift;
...
    }
    
}

my $bb_curve_sth = $db->GetCurveByIdentifier($bb_code);
if ($db->err) {
...
my $bb_curve = $bb_curve_sth->fetchrow_hashref;
$bb_curve_sth->finish;
$db->CloseCursor($bb_curve_sth); ## Close the cursor