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

##</code><code>##

use autodie;
open my($erase), '>', 'lol.txt';
print $erase "LOL";
close $erase;