Select Code to Download

#!/usr/bin/perl 

...
#use diagnostics; # optional

use Getopt::Std; ...

$ perl -Mstrict -Mwarnings -E '
my @in_strings;
...
unauthenticated
not authenticated
count = 3