#!/usr/bin/env perl
use 5.024;
use warnings;
use experimental qw< postderef signatures >;
no warnings qw< experimental::postderef experimental::signatures >;
use Mojo::UserAgent;
use Data::Dumper;

my $uri   = $ENV{MASTODON_URI} // 'https://octodon.social/api/v1/statuses';
my $token = $ENV{MASTODON_TOKEN} or die 'no token';
say Dumper mastodon_post_status($uri, $token, shift // 'whatevah!');

sub mastodon_post_status ($uri, $token, $status, $visibility = 'private') {
   return Mojo::UserAgent->new->post(
      $uri, { Authorization => "Bearer $token" },
      form => {
         status => $status,
         visibility => $visibility,
      },
   )->res->json;
}