call constant from other package as a function, otherwise perl -wc fails with # Bareword "Sms::Token::UDH::UDH1_LENGTH" not allowed while "strict subs" in use at /usr/share/perl5/Device/Gsm/Pdu.pm line 205. # Compilation failed in require at /usr/share/perl5/Device/Gsm/Sms/Token/UDH.pm line 16. # BEGIN failed--compilation aborted at /usr/share/perl5/Device/Gsm/Sms/Token/UDH.pm line 16. # Compilation failed in require at /usr/share/perl5/Device/Gsm/Pdu.pm line 22. # BEGIN failed--compilation aborted at /usr/share/perl5/Device/Gsm/Pdu.pm line 22. . Cf. https://ci.debian.net/data/autopkgtest/testing/amd64/libd/libdevice-gsm-perl/9312113/log.gz