如何正确运行Perl“one liner”命令行脚本？

I have looked through a number of tutorials, but I still can't figure out what I am doing wrong.. I am trying the code below (in a .pl Perl file, as an executable):I have looked through a number of tutorials, bu