don't throw 'Use of uninitialized value in addition (+) at /usr/local/share/perl...