Select Code to Download

s/TRUE/1/imgsx;
s/FALSE/0/imgsx;

tr/TRUEFALSE/111100000/;

open my $Q_FH, '>', \my $query;

#create customer DB
print $Q_FH "INSERT INTO CUSOMER 
...
print $Q_FH "VALUES";
print $Q_FH join(',', map{"\n($vendor_id_href->{$_}, $_)"} keys %$vend
+or_id_href);
print $Q_FH ";\n";

sub table_to_array {
    my $table_fh = shift;
...


Use of uninitialized value in lc at /usr/local/lib/perl5/site_perl/5.1
+2.3/Tie/Handle/CSV/Hash.pm line 31, <$csv_fh> line 8014