use strict;
use warnings;

##</code><code>##

use strict;
use warnings;
use diagnostics;

my $logName = 'logfile.txt';

open my $logIn, '<', $logName or die "Can't open $logName: $!\n";

while (defined (my $line = <$logIn>)) {
    ...;
}