#!/usr/bin/perl
use LWP::UserAgent;
# Hook の URL をここで決める
my $hook = "https://discordapp.com/api/webhooks/987456234975184331/XXXXXXX..";
my $browser = LWP::UserAgent->new;
my $client = HTTP::Request->new(POST => $hook);
$client->content_type('application/json');
$client->header("User-Agent" => "DiscordBot (hiyoko, 6)");
$client->content('{"content":"こねこねこねこ"}');
$browser->request($client);
ただいまコメントを受けつけておりません。