use UTF8BOM;
use Encode;
use strict;

my $text = 'Umlaut Ü';
open(OUT, '>', 'test.txt') || die "test.txt:$!";
print OUT UTF8BOM->insert_into_str(encode("utf8", "$text\n"));
close(OUT);