Help for this page
#!/usr/bin/env perl ... } print STDERR "ligB <<$lig>>\n"; xxxx();
ligA <<4>> ligB <<4>> ligX <<4>>