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