open FILE, "C:/Users/Admin/Desktop/Books/read.txt" or die "Can't open : $!\n";

@content = <FILE>;

print @content;

$last = pop(@content);

print "\n".$last. "\n";