I remember seeing the original Activestate post and porting it to Perl. But it was 12 years ago so took me a while to find it :) https://gist.github.com/draeg

I remember seeing the original Activestate post and porting it to Perl. But it was 12 years ago so took me a while to find it :) https://gist.github.com/draegtun/540493 https://gist.github.com/draegtun/540493