Small Perl script that aims to replace and outperform pgFouine