use Win32 qw( CSIDL_PERSONAL );

my $my_documents_path = Win32::GetFolderPath(CSIDL_PERSONAL);