Select Code to Download

  my %params;
  if ( $params{content} ) { $request{content} = $params{content} }
...
  if ( $params{username} )   { $request{username}   = $params{username
+} }
  if ( $params{avatar_url} ) { $request{avatar_url} = $params{avatar_u
+rl} }
  if ( $params{tts} )        { $request{tts}        = JSON::PP::true }

my @valid_keys = qw< content username avatar_url >;

my %request = map { $_ => $params{$_} } grep { $params{$_} } @valid_ke
+ys;
$request{tts} = $params{tts} ? JSON::PP::true : JSON::PP::false;

use String::Random;

my $boundary = String::Random->new->randregex('[A-Za-z0-9]{32}');