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