Select Code to Download

#!/usr/bin/
#-- try: #!/usr/bin/perl
...
#*** Close the file ***
close(MYOUTFILE);

#!/usr/bin/perl

...

print "Unique codes (size=$code_length) written to '$codes_filename': 
+$unique_codes_count\n";