Perl script to decide where or not a given graph is Hamiltonian, in polynomial time.