use Win32::File;
use Win32::FileSecurity;
sub check_dir_is_writeable {
  my $http_rec_localdir = shift;
  my $attrib;
  Win32::File::GetAttributes($http_rec_localdir, $attrib);
  if ($attrib & (Win32::File::SYSTEM | Win32::File::HIDDEN))
    ...
}