#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my $path = 'test.txt';
if (open my $file,"<$path") {
    my @file_rows = <$file>;
    if (scalar @file_rows) {
        print $file_rows[9];
        print $file_rows[10];
    }
    else { die "Datei ist leer\n" }
}
else { die $! }