gistfile1.txt

use utf8;
use File::Spec;
use Win32::Unicode;

# フルパス = フォルダ名 + ファイル名
my $path = File::Spec->catfile("c:/Documents and Settings", "萌え♥.txt");
sayW $path; # C:\Documents and Settings\萌え♥.txt
 
# ファイルを作成してみる
my $file = Win32::Unicode::File->new(">", $path);
$file->print("Hello");
$file->close;

# フルパスを分解してみる
{
    my ($volume,$directories,$file) = File::Spec->splitpath($path);
    sayW $volume;      # C:
    sayW $directories; # \Documents and Settings\
    sayW $file;        # 萌え♥.txt
}