use Win32 qw(folder(1));

my $directory = Win32::GetFolderPath(folder(1));