A simple Perl script to build BOMs from schematic files