我想使用Perl模块Net::MQTT::Simple向MQTT服务器发送MQTT消息。这是一个基于的简单MVP脚本
#!/usr/bin perl
use warnings;
use strict;
use autodie;
use Net::MQTT::Simple;
# Allow unencrypted connection with credentials
$ENV{MQTT_SIMPLE_ALLOW_INSECURE_LOGIN} = 1;
# Connect to broker
my $mqtt = Net::MQTT::Simple->new('local