>perl 549202.pl rw
share: rw
Read f
pre unlink dir: deleteme
pre unlink type: foo
Unable to delete file     <---
post unlink dir: deleteme
post unlink type: foo
Read o
pre CloseHandle dir: deleteme
pre CloseHandle type: foo
post CloseHandle dir: deleteme
post CloseHandle type: foo

>perl 549202.pl rwd
share: rwd
Read f
pre unlink dir: deleteme
pre unlink type: foo
File deleted              <---
post unlink dir: deleteme
post unlink type: Access is denied.
Read o
pre CloseHandle dir: deleteme
pre CloseHandle type: Access is denied.
post CloseHandle dir: File Not Found
post CloseHandle type: The system cannot find the file specified.