11 lines
165 B
Perl
Executable File
11 lines
165 B
Perl
Executable File
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Net::MQTT::Simple;
|
|
|
|
my $mqtt = Net::MQTT::Simple->new("br0tkasten.de");
|
|
|
|
$mqtt->publish("test/foo" => "hobaguagal");
|
|
|