Select Code to Download

#!/usr/bin/perl -l
use Getopt::Std;
...
print join("=>",%+);

# ./test.pl
DCSE=>AD0
...
# ./test.pl -fq

#