Select Code to Download

#!/usr/bin/perl

...
}

print $outfile "subscriptionDb.customerId=$customerId\n";

mmusser@localhost:~/programming/perl$ perl prep_gen.pl some_file.csv
Please provide the full merchant name: 
...
Use of uninitialized value $customerId in scalar chomp at prep_gen.pl 
+line 50, <> line 1.
Use of uninitialized value $customerId in pattern match (m//) at prep_
+gen.pl line 52, <> line 1.
Invalid input; customer ID must be completely numeric. Please try agai
+n: