use Image::Magick;
  my $image = Image::Magick->new();
  ...
  $image->Annotate(
    x=>$x, y=>$y, text=>"Up: \x{2191} and Down: \x{2193}",
    font=> '@YOURFONT.TTF', pointsize => 12, stroke => 'black',
  );