#!/usr/bin/perl
use strict;
use warnings;
use feature qw{ say };

open OUT, '>', 'log.txt' or die $!;
print OUT "bla\n";

open IN, '<', 'log.txt' or die $!;
my $nothing = <IN>;
say "Read: $nothing.\n";

close OUT;
my $bla = <IN>;
say "Read: $bla.\n";