Select Code to Download

my %list;
my ($customer, $total);                                 # use $custome
+r instead of $cust
...
                     write;
                     }
             }