use Win32;
use Storable;
my $file = Win32::GetShortPathName('X:\Some\Unicode\Path\\'); # it gives me a 8.3 path
print -e $file; # Got it!
store {}, "$file/Storable.sto"; # Done!