Select Code to Download

#!/usr/bin/env perl

...

close $out_fh;

# Verify that there are no duplicates.
perl -nE 'say $_ if $seen{$_}++;' testfile.txt
...
# Verify that we only have digits between a..z and 3, 4, 6, 7, 9.
perl -nE 'say "$. : $_" if m/[^a-z34679\n]/' testfile.txt
# We want no output.

package CodeGenerator;

...


close $out_fh;