Update README, add perl script and add example.