Select Code to Download

perl report.pl -CustomerName "Penelope NY" > test.txt

perl report.pl --CustomerName "Penelope NY" > test.txt

use strict;
use Getopt::Long;
...
for my $customer (@customer) {
    print "Hello $customer!\n";
};