Perl语法错误-"；使用「；表达式第2行中不允许

我是perl新手，在尝试编译时遇到了这个错误

我明白了

deneme.pl第1行“PHP代码：”附近出现语法错误 第2行末尾的deneme、.pl行的表达式中不允许使用 错误后开始不安全--编译在deneme.pl第3行中止。 这是我的密码

PHP Code:
use strict;
use warnings;

use Win32::GuiTest qw(:ALL);
use Time::HiRes qw(usleep);
use LWP::UserAgent;


use constant HTKEY => 'a';
use constant START => 2;
use constant STOP  => 1;

my $sleep = 1;
my $cond = 0;

while (1) {
    start() if $cond == 1;
    if (IsKeyPressed(START)) { $cond = 1 }
    if (IsKeyPressed(STOP))  { $cond = 0 }
}

sub start {
    $sleep = 1000000 * (1/as())/2;
    SendKeys(HTKEY);
    usleep($sleep);
    SendMouse("{RIGHTCLICK}");
    usleep($sleep);
}

sub as {
    my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, protocols_allowed => ['https'] );
    my $req = HTTP::Request->new( 
        GET => 'https://127.0.0.1:2999/liveclientdata/allgamedata',
    );
    my $res = $ua->request($req);
    if ($res->content =~ /"attackSpeed": (\d+\.\d+),/) {
        return $1
    }
}

您的代码以以下内容开头：

PHP Code:

---

这是无效的Perl。你想做什么？

请阅读，然后回答你的问题。始终将代码和错误包含为文本，而不是图像。图像很难阅读，链接可能会断开，人们无法复制和粘贴代码进行尝试。今后，请包括执行的确切代码和收到的确切错误消息。此外，一旦发现问题，请不要将其从问题中删除。（我也情不自禁地觉得，如果你曾经尝试过的话，你应该能够解决这个问题。）投票以“打字错误”的形式结束。很抱歉，我忘了删除编辑过的那部分。@corei:你原来错误的图像是。它说“PHP代码附近的语法错误：”。所以这在你的代码中的某个点，它确实导致了那个错误。如果您现在已经删除了它，那么您的代码应该编译并运行。