use Unicode::Map8;
my($content) = some UTF8 string being passed in.
my($latin_map) = Unicode::Map8->new("latin1") || die("Map8 problem");
my($latin_string) = $latin_map->to8($content);
print "Latin string is $latin_string";