This repo provides a Perl script which uses sox and Math::FFT to draw an amplitude-per-frequency diagram of each 1/8th second of audio from the system's microphone and select what it thinks is the primary pitch of that 1/8th second slice.