https://www.xavignu.com/?p=222
Check your stocks with Perl