% perl -cw Doug.pm
> Illegal declaration of anonymous subroutine at Doug.pm line 58.