my $last;
{
  local $_;
  open FILE, "<myfile" or die "opening myfile: $!\n";
  $last = $_ while <FILE>;
  close FILE;
  # last line in $last.
}
[download]

((added:) ...read the file, keep track of each line read in $last. At the end, $last will contain the last line successfully read.)