Select Code to Download

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

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