use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new();
my $album = "ä";
mkdir("$album"); #Korrekt dargestelltes ä in Windows
$mw -> Label(-textvariable => \$album);
mkdir("$album"); #Kein ä mehr, sondern Â