Add principal script

Add the principal perl script (initial commit) and quick update of the
README file