use utf8;
use Win32;
$dir="Małretuzz";
print our $short_path_dir = Win32::GetShortPathName( "$dir" );

##</code><code>##

use utf8;
use Win32;
use Tk;
use File::Spec;

my $dir = File::Spec->canonpath( $mw->chooseDirectory() );
my $short_path_dir=Win32::GetANSIPathName($dir);	
#alternative
#my $short_path_dir = Win32::GetShortPathName( "$dir" );
my $path_and_database="$short_path_dir" . "\\DATABASE\.db";

my $dbh = DBI->connect("dbi:SQLite:$path_and_database","","", {});
$dbh->do( "CREATE TABLE table( ID INTEGER PRIMARY KEY, POS, simple)" );
$dbh->disconnect;