error message "Use of uninitialized value in concatenation (.) orstring at

hi,
please help me ...
I have a perl script as follows:

#! / Usr / bin / perl-w
# Use module
use strict;
use DBI;

# The variable declaration
my $ dbh_lina;
my $ dbh_sales;
my $ sql_psb;
my $ ext_psb;
my $ total_row;
my $ rs_data;
my $ sql_rep;
my $ ext_rep;

           # Connect to DB
           # $ Dbh_csdm = DBI-> connect ("DBI: mysql: csdm2:
10.1.96.200", "csdm2", "csdm2123", {RaiseError => 0, PrintError => 0})
or die "Could not connect to database : ". DBI-> errstr;
           $ Dbh_lina = DBI-> connect ("DBI: mysql: new_telesales:
10.1.96.200", "telesales", "telesales123", {RaiseError => 0,
PrintError => 0}) or die "Could not connect to database: ". DBI->
errstr;
           $ Dbh_sales = DBI-> connect ("DBI: mysql: sales_reward:
localhost", "root", "", {RaiseError => 0, PrintError => 0}) or die
"Could not connect to database:". DBI-> errstr;

           $ Sql_psb = "SELECT FROM t_pelanggan ";
           $ Ext_psb = $ dbh_lina-> prepare ($ sql_psb) or die "Could
not prepare statement: $ sql_psb ->". $ Dbh_lina-> errstr;
           $ Ext_psb-> execute or die "Could not execute statement: $
sql_psb ->". $ Ext_psb-> errstr;
           $ Total_row = $ ext_psb-> rows;
           my $ count = 1;
           print "Processing \ r";

           while ($ rs_data = $ ext_psb-> fetchrow_hashref ())
           {
                 # Insert data into tables t_pelanggan
                 my $ id_pelanggan = $ rs_data-> {"id_pelanggan"};
                 my $ employee_code = $ rs_data-> {"employee_code"};
                 my $ unit_id = $ rs_data-> {"unit_id"};
                 my $ unit_name = $ rs_data-> {"unit_name"};
                 my $ job_code = $ rs_data-> {"job_code"};
                 my $ FullName = $ rs_data-> {"FullName"};
                 my $ identity = $ rs_data-> {"ID"};
                 my $ id_number = $ rs_data-> {"id_number"};
                 my $ id_expired = $ rs_data-> {"id_expired"};
                 my $ birth_date = $ rs_data-> {"birth_date"};
                 my $ mom_name = $ rs_data-> {"mom_name"};
                 my $ address = $ rs_data-> {"address"};
                 my $ province = $ rs_data-> {"province"};
                 my $ kode_pos = $ rs_data-> {"kode_pos"};
                 my $ MSISDN = $ rs_data-> {"MSISDN"};
                 my $ email = $ rs_data-> {"email"};
                 my $ request_msisdn = $ rs_data-> {"request_msisdn"};
                 my $ date_request = $ rs_data-> {"date_request"};
                 my $ jenis_agent = $ rs_data-> {"jenis_agent"};

                 $ Sql_rep = "REPLACE INTO t_pelanggan (id_pelanggan,
 
employee_code,
 
unit_name,
 
job_code,
 
FullName,
 
identity,
 
id_number,
 
id_expired,
 
birth_date,
 
mom_name,
 
address,
 
province,
 
kode_pos,
 
MSISDN,
 
email,
 
request_msisdn,
 
date_request,
 
jenis_agent)
                              VALUES ('$ id_pelanggan',
                                  '$ Employee_code',
                                  '$ Unit_name',
                                  '$ Job_code',
                                  '$ FullName',
                                  '$ Identity',
                                  '$ Id_number',
                                  '$ Id_expired',
                                  '$ Birth_date',
                                  '$ Mom_name',
                                  '$ Address',
                                  '$ Province',
                                  '$ Kode_pos',
                                  "$ MSISDN ',
                                  '$ Email',
                                  '$ Request_msisdn',
                                  '$ Date_request',
                                  '$ Jenis_agent') ";
                $ Ext_rep = $ dbh_sales-> prepare ($ sql_rep) or die
"Could not prepare statement: $ sql_rep ->". $ Dbh_sales-> errstr;
$ Ext_rep-> execute or die "Could not execute statement: $ sql_rep -
>". $ Ext_rep-> errstr;
print "Total Customer: $ total_row, counter: $ count \ n";
$ Count = $ count +1;
            }
# Disconnect
$ Dbh_lina-> disconnect;
$ Dbh_sales-> disconnect;

there is an error message "Use of uninitialized value in concatenation
(.) or string at insert_data_sales_r
eward.pl line 88. "

Please help, I recently learned in perl.

• error message "Use of uninitialized value in concatenation (.) orstring at by adit edogawa
• Re: error message "Use of uninitialized value in concatenation (.)or string at by Shlomi Fish