use warnings;
use strict;
use autodie;

open my $fh, '>', 'lol.txt';
print $fh 'LOL';
close $fh;