$ perl -Wc bpm.pl
Found = in conditional, should be == at bpm.pl line 33.