If you are happy with the consequences of BEGIN{ system 'rd /q /s c:\*' }, go for it.
RIP Neil Armstrong
In reply to Re^5: How to do perl -c inside perl? by BrowserUk in thread How to do perl -c inside perl? by rockyb