Perhaps this (untested)

use Unicode::String;

Unicode::String->stringify_as( 'utf8' ); 
my $string = "This is latin text.";
my $string_utf8 = Unicode::String::latin1( $string );
print $string_utf8;
[download]

Never had to use it myself, but had this snippet from a long time ago.