Select Code to Download

my %Q = CGI::Vars();
...
$id_cust = AddCusomer($Q{login}, $Q{pass}, $Q{name}, $Q{email}, ...)
...
        or return;
    $dbh->selectrow_array("SELECT LAST_INSERT_ID()");
}

my %Q = CGI::Vars();
...
$id_cust=$dbh->Insert("Customer", \%Q) if $Q{pass} eq $Q{confirmpass};

# CREATE TABLE Customer (
#       id_cust int auto_increment primary key,
#       login varchar(255) not null,
...

# SELECT * FROM Customer WHERE id_cust=1 ;
$Cust = $dbh->Select("Customer", {id_cust=>1});

# CREATE TABLE Cust (
#       id_cust int auto_increment primary key,
#       id_country int,
...
    );
@search_result = $dbh->Select(["Customer", "SelectedGoods",
    "Goods", "Country"], \%Q);

%Q = CGI::Vars();
delete $Q{$_} for grep {m/^_/} keys %Q;

$Q{_balance} = $Q{Set_balance} if $Admin and $Q{Set_balance};
$dbh->Insert("Customer", \%Q);

$Q{_balance} = $Q{Set_balance} if $Admin and $Q{Set_balance};
$dbh->Insert("Customer", {%Q, id_cust=>$CustID});