gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use LINE::Bot::API;
use LINE::Bot::API::Builder::SendMessage;

my $push_to = 'xxx'; # 送信先のグループID

my $channel_secret = 'xxx';
my $channel_access_token = 'xxx';

my $bot = LINE::Bot::API->new(
    channel_secret       => $channel_secret,
    channel_access_token => $channel_access_token,
);

my $messages = LINE::Bot::API::Builder::SendMessage->new;

my $text = <<"EOS";
む、この参加人数では中止だな。
回答感謝する。
EOS

$messages->add_text(text => $text);

$bot->push_message($push_to, $messages->build);