perl脚本执行报错，找不到解决原因

命令行执行perl文件报错

Undefined subroutine &digitalization::initial