$ perl -Mdiagnostics -Mwarnings -e " open erase, '>', 'NUL'; print erase 1"