# get current file attributes
Win32::File::GetAttributes($file, my $attr);
# set file attributes to allow editing
$attr |= READONLY;
Win32::File::SetAttributes($file, $attr);