Use of uninitialized value $BUFF in string eq at C:/Strawberry/perl/site/lib/Device/Leap.pm line 40.
substr outside of string at C:/Strawberry/perl/site/lib/Device/Leap.pm line 115.