my $monaco = GD::Font->load('/System/Library/Fonts/Monaco.dfont')
  or die "Can't load monaco!";