#!/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 $! }