#!perl
use v5.36.0;
use Slack::BlockKit::Sugar -all => { -prefix => 'bk_' };

my $channel_id   = q{C079XSBFV0F};
my $time = 1720100001;
my $date = "<!date^$time^{date_short} at {time}|^too long>";

return bk_blocks(
  bk_section(
    bk_mrkdwn("Join <#$channel_id> before $date."),
  ),
  bk_divider(),
  bk_richblock(
    bk_richsection(
      "Join ", bk_channel($channel_id), " before ", bk_date($time), ".",
    )
  )
);
