my $lolfile = "lol.txt";
open my $oh, ">$lolfile"
  or die "$!: $lolfile";
print $oh "LOL\n";
close $oh
  or die "$!: $lolfile";