Select Code to Download

my $string = Encode::decode("iso-8859-1","\x{d6}sterreich");

...
open my $fh,">:utf8","/some/path" or die $!;
print $fh $string;
close $fh or die $!;