#!/usr/bin/perl

use strict;
use warnings;

use utf8;

use Encode qw(encode decode encode_utf8);
use File::Path qw(make_path remove_tree);

my $dirname="ÜÜ";
$dirname=Encode::decode_utf8( $dirname );
my $path= "C:/$dirname";
make_path($path);