rsync %*
echo y|cacls D:\smoke\perl-current\*.* /T /C /P Everyone:F >nul
attrib -r /s /d D:\smoke\perl-current\*.* >nul