Simple test script to post to slack

app.pl

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use JSON;
use Data::Dumper;
use LWP::UserAgent;

my $url = $ENV{SLACK_WEBHOOK_URL};

my $channel  = '#sandbox';
my $username = 'Test Agent';
my $icon     = ':jack_o_lantern:';
my $message  = $ARGV[0];

my $post_data = {
    payload => encode_json +{
        channel    => $channel,
        username   => $username,
        icon_emoji => $icon,
        text       => $message,
    },
};

my $headers = {};

my $ua = LWP::UserAgent->new;
my $response = $ua->post($url, $post_data, %$headers);

unless ($response->is_success) {
    warn $response->status_line;
}

exit;

cpanfile

requires 'JSON';
requires 'LWP::UserAgent';
requires 'LWP::Protocol::https';